Skip Menu |
 

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Devel-Cover CPAN distribution.

Report information
The Basics
Id: 13207
Status: resolved
Priority: 0/
Queue: Devel-Cover

People
Owner: Nobody in particular
Requestors: martin [...] hybyte.com
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 0.53
Fixed in: (no value)



Subject: Cover doesnt like some Symbole Table modifications
Download (untitled) / with headers
text/plain 597b
the following code installs a wrapper around the original sub s1, by making a copy, of the current code pointer, and changing the symbol table: sub s1 { my $t = shift; if ($t > 5) {print 5 } else {print $t } } my $c = *main::s1{CODE}; *main::s1 = sub { print "extra"; &$c(@_); }; s1(1); s1(7); running this under cover, will show the coverage of the new code, but not of the original code. The same applies, if the reference to the original code is captured with "$c = \&s1;", As Devel::Leak::Object does. No Idea, if this is solvable, but it would be great if. Many thanks Martin
Download (untitled) / with headers
text/plain 136b
Thanks very much for this report. The problem has been fixed by commit 3174b8f which includes your code as a test case. Thanks again.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.