# HG changeset patch
# User Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
# Date 1543291550 -32400
# Node ID 2e4c952bcdfba05d82108142dc1acc7180931221
# Parent  5bf045527a94b8056face45cb93377411443c8ff# Parent  a6c2121772675dc4e5228ec64d2c1cf37c22b038
merge

diff -r 5bf045527a94 -r 2e4c952bcdfb dotest_coverage.pl
--- a/dotest_coverage.pl	Tue Nov 27 13:05:20 2018 +0900
+++ b/dotest_coverage.pl	Tue Nov 27 13:05:50 2018 +0900
@@ -6,8 +6,8 @@
 my $top_dir = "/mnt/dalmore-home/one/src/Perl6/nqp/vmtest";
 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;
+my $sum_tests =0;
+my $sum_ok = 0;
 
 sub coverage_test {
     my $filename = $_;
@@ -26,8 +26,10 @@
         }
     }
 
-    $sum_ok += $counter;
-    $sum_tests += $end;
+    if ($counter && $end){
+        $sum_ok += $counter;
+        $sum_tests += $end;
+    }
 }
 
 find(\&coverage_test,$top_dir);