@@ -19,8 +19,8 @@ MAIN: { } # Determine the revision of Parrot we require - open my $REQ, "build/PARROT_REVISION" - || die "cannot open build/PARROT_REVISION\n"; + open my $REQ, '<', "build/PARROT_REVISION" + or die "cannot open build/PARROT_REVISION: $!\n"; my ($reqsvn, $reqpar) = split(' ', <$REQ>); $reqsvn += 0; close $REQ; @@ -143,10 +143,7 @@ sub verify_parrot { "$PARROT_INCLUDE_DIR", "$PARROT_INCLUDE_DIR/pmc", ); - my @missing; - for my $reqfile (@required_files) { - push @missing, " $reqfile" unless -e $reqfile; - } + my @missing = map { " $_" } grep { ! -e } @required_files; if (@missing) { my $missing = join("\n", @missing); die <<"END"; Configure.pl daf221d2ee1ddc0071d5b8033c04d981bd1100f3 Kyle Hasselbacher kyle@livetext.com http://github.com/rakudo/rakudo/commit/1f2e5f4ea67166d73ef7a46417a16f7de0934d8c 1f2e5f4ea67166d73ef7a46417a16f7de0934d8c 2009-10-09T08:00:33-07:00 2009-10-09T08:00:33-07:00 [Configure.pl] do or die idiom fix 521deb2295f0289054ff2ce22cfc6f803b85ad5c Kyle Hasselbacher kyle@livetext.com