remove a fossile in gen_parrot.pl; needs re-testing under windows

rakudo · Nov 15, 2010 · d1ca2e3 · d1ca2e3
1 parent 3d9ef18
commit d1ca2e3
Showing 1 changed file with 10 additions and 9 deletions.
diff --git a/build/gen_parrot.pl b/build/gen_parrot.pl
@@ -35,16 +35,17 @@ =head2 DESCRIPTION
 
 {
     no warnings;
-    if (-e "parrot_install${slash}bin${slash}parrot_config revision" &&
-      open my $REV, '-|', "parrot_install${slash}bin${slash}parrot_config revision") {
-        my $revision = <$REV>;
-        close $REV;
-        $revision =~ s/\s.*//s;
-        if (compare_parrot_revs($revision, $req) >= 0) {
-            print "Parrot $revision already available ($req required)\n";
-            exit(0);
+    eval {
+        if (open my $REV, '-|', "parrot_install${slash}bin${slash}parrot_config git_describe") {
+            my $revision = <$REV>;
+            close $REV;
+            $revision =~ s/\s.*//s;
+            if (compare_parrot_revs($revision, $req) >= 0) {
+                print "Parrot $revision already available ($req required)\n";
+                exit(0);
+            }
         }
-    }
+    };
 }
 
 print "Checking out Parrot $req via git...\n";