[tools/test_summary.pl] use $*VM<config><revision> instead of %*VM...

rakudo · Jul 16, 2010 · 0b3a0ec · 0b3a0ec
1 parent 0680fc2
commit 0b3a0ec
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/tools/test_summary.pl b/tools/test_summary.pl
@@ -268,13 +268,13 @@ sub begin {       # this constructor starts simple relative benchmarking
                 $line = <$file_in>; chomp $line;
             } # ends on the ' ],' line after the test_history
             $line = <$file_in>; chomp $line;
-            if ( $line =~ m/ "test_microseconds":{/i ) {
-                warn "begin reached 'test_microseconds'\n";
-            }
+            # if ( $line =~ m/ "test_microseconds":{/i ) {
+            #     warn "begin reached 'test_microseconds'\n";
+            # }
         }
     }
     open( $self->{'file_out'}, '>', 'docs/test_summary.times.tmp') or die "cannot create docs/test_summary.times.tmp: $!";
-    my $parrot_version = qx{./perl6 -e'print %*VM<config><revision>'};
+    my $parrot_version = qx{./perl6 -e'print \$*VM<config><revision>'};
     my $rakudo_version = qx{git log --oneline --max-count=1 .}; chomp $rakudo_version;
     $rakudo_version =~ s/\\/\\\\/g; # escape all backslashes
     $rakudo_version =~ s/\"/\\\"/g; # escape all double quotes