[configure] fix two thinkos

perl6 · Nov 16, 2010 · c4c31a1 · c4c31a1
1 parent fdbe423
commit c4c31a1
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Configure.pl b/Configure.pl
@@ -61,7 +61,7 @@
     if (!%config) {
         $parrot_errors .= "Unable to locate parrot_config\n";
     }
-    elsif (compare_parrot_revs($reqsvn, $config{'git_describe'}) < 0 &&
+    elsif (compare_parrot_revs($reqsvn, $config{'git_describe'}) > 0 &&
 
             ($reqpar eq '' || version_int($reqpar) > version_int($config{'VERSION'}))) {
         $parrot_errors .= "Parrot revision $reqsvn required (currently $config{'git_describe'})\n";

diff --git a/build/gen_parrot.pl b/build/gen_parrot.pl
@@ -35,7 +35,7 @@ =head2 DESCRIPTION
 
 {
     no warnings;
-    if (open my $REV, '-|', "parrot_install${slash}bin${slash}parrot_config revision") {
+    if (open my $REV, '-|', "parrot_install${slash}bin${slash}parrot_config git_describe") {
         my $revision = <$REV>;
         close $REV;
         $revision =~ s/\s.*//s;