# HG changeset patch
# User anatofu
# Date 1541763902 -32400
# Node ID ee60403fc119557156a9f520f4a40aa8cac8c5ee
# Parent  4f704a718752f9905ccd244ad47fd759ebba9343
fix regex

diff -r 4f704a718752 -r ee60403fc119 dotest_coverage.pl
--- a/dotest_coverage.pl	Fri Nov 09 17:47:21 2018 +0900
+++ b/dotest_coverage.pl	Fri Nov 09 20:45:02 2018 +0900
@@ -4,7 +4,7 @@
 use File::Find;
 
 my $top_dir = "/mnt/dalmore-home/one/src/Perl6/nqp/vmtest";
-my $MOAR = "/mnt/dalmore-home/one/src/Perl6/moar";
+my $MOAR = "/mnt/dalmore-home/one/src/Perl6/MoarVM/moar";
 my $NQP_ORIGINAL = "/mnt/dalmore-home/one/src/MoarVM_Original/nqp";
 our $sum_tests =0;
 our $sum_ok = 0;
@@ -16,12 +16,12 @@
     my ($start,$end,$counter);
 
     for my $line (`$MOAR  --libpath=${NQP_ORIGINAL}/gen/moar/stage2 $filename`){
-        if ($line =~ (\d+)\.\.(\d+)){
+        if ($line =~ /(\d+)\.\.(\d+)/){
             $start = $1;
             $end = $2;
         }
 
-        if ($lien =~ /ok \d+/){
+        if ($line =~ /ok \d+/){
             $counter++;
         }
     }
diff -r 4f704a718752 -r ee60403fc119 logs2.pl
--- a/logs2.pl	Fri Nov 09 17:47:21 2018 +0900
+++ b/logs2.pl	Fri Nov 09 20:45:02 2018 +0900
@@ -11,7 +11,7 @@
 open my $ofh, '<', $originlog;
 open my $cfh, '<', $cbclog;
 
-print "Originlog:CbClog\n";
+print "$originlog :$cbclog \n";
 
 while (1){
   my $orig_line;