@@ -92,7 +92,7 @@ sub read_parrot_config { while (<$PARROT_CONFIG>) { if (/(\w+) => '(.*)'/) { $config{$1} = $2 } } - close $PARROT_CONFIG or die $!; + close $PARROT_CONFIG; last if %config; } } Configure.pl 99f7331308f8b8296cdb3e7570fcb35d5b8beac6 Francois Perrad francois.perrad@gadz.org http://github.com/cardinal/cardinal/commit/7bd4097adfa29c2324b517931b34826f6661aa8d 7bd4097adfa29c2324b517931b34826f6661aa8d 2009-04-19T14:06:00-07:00 2009-04-19T01:57:36-07:00 allows check different config Signed-off-by: Stephen Weeks <tene@allalone.org> 4fae710794a100e0e21350f077a2dfdfb0dd73b9 Stephen Weeks tene@allalone.org