# HG changeset patch
# User anatofuz
# Date 1541804886 -32400
# Node ID a6c2121772675dc4e5228ec64d2c1cf37c22b038
# Parent  ee60403fc119557156a9f520f4a40aa8cac8c5ee
bug fix

diff -r ee60403fc119 -r a6c212177267 dotest_coverage.pl
--- a/dotest_coverage.pl	Fri Nov 09 20:45:02 2018 +0900
+++ b/dotest_coverage.pl	Sat Nov 10 08:08:06 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);