Slash Boxes
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

Ovid (2709)

  (email not shown publicly)
AOL IM: ovidperl (Add Buddy, Send Message)

Stuff with the Perl Foundation. A couple of patches in the Perl core. A few CPAN modules. That about sums it up.

Journal of Ovid (2709)

Sunday August 19, 2007
08:10 AM

Devel::Cover patch

[ #34152 ]

A while ago, Leif Eriksen dug into Devel::Cover to find out why TAP::Parser couldn't be covered. He found a bug and managed to produce a patch:

--- Devel-Cover-0.61-bad/lib/Devel/Cover/  2007-01-11
06:42:48.000000000 +1100
+++ Devel-Cover-0.61-good/lib/Devel/Cover/ 2007-08-12
01:03:18.000000000 +1000
@@ -708,7 +708,7 @@
             while (my ($criterion, $fc) = each %$f)
                 my $get = "get_$criterion";
-                my $sc  = $st->$get($digests{$digest});
+                my $sc  = $st->$get($file);
                 # print STDERR "$criterion: ", Dumper $sc, $fc;
                 next unless $sc;  # TODO - why?
                 my $cc  = $cf->{$criterion} ||= {};

Today, while working on App::Pgrep (not released, but it's a PPI powered version of grep), I discovered I was also getting zero test coverage. I applied Leif's patch and all is well.

Paul Johnson hasn't released a new version of Devel::Cover yet (and rt is down so I can't see if the patch is there), so I figured some of you might find this useful.

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
More | Login | Reply
Loading... please wait.