Fix gcov2perl to work with large numbers.

rt 45028. Reported and fixed by Thomas Dorner.
pjcj · May 8, 2010 · 95aa629 · 95aa629
1 parent 9add51b
commit 95aa629
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/CHANGES b/CHANGES
@@ -1,5 +1,8 @@
 Devel::Cover.pm history
 
+Release 0.68 - 
+ - Fix gcov2perl to work with large numbers (Thomas Dorner) (rt 45028).
+
 Release 0.67 - 8th May 2010
  - Fix up the Makefile for dmake on Strawberry Perl (Curtis Jewell) (rt 50774).
 

diff --git a/gcov2perl b/gcov2perl
@@ -58,8 +58,7 @@ sub add_cover
     open F, $file or die "Can't open $file: $!\n";
     while (<F>)
     {
-        next unless my ($count, $line) = /(.{9}):\s*(\d+):/;
-        $count =~ s/\s+//g;
+        next unless my ($count, $line) = /^\s*([-0-9#]+):\s*(\d+):/;
         next if $count eq "-";
         $count = 0 if $count eq "#####";