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: 8578
Status: resolved
Priority: 0/
Queue: Devel-Cover

People
Owner: Nobody in particular
Requestors: mark [...] summersault.com
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 0.50
Fixed in: 0.51



Subject: fix for undefined array ref
Download (untitled) / with headers
text/plain 1.1k
# I got the following result, which prevented the report generation from completing: mark@sap$ cover -report html Reading database from /usr/home/mark//cover_db Devel::Cover: ignoring extra statement Devel::Cover: ignoring extra subroutine Devel::Cover: ignoring extra branch Can't use an undefined value as an ARRAY reference at /usr/local/lib/perl5/site_perl/5.8.0/mach/Devel/Cover/Branch.pm line 50. This patch fixes the issue and allowed the report to succeed: mark@sap$ diff -u /usr/src/.cpan/build/Devel-Cover-0.50/lib/Devel/Cover/Branch.pm /home/mark/tmp/Branch.pm --- /usr/src/.cpan/build/Devel-Cover-0.50/lib/Devel/Cover/Branch.pm Mon Oct 25 09:09:56 2004 +++ /home/mark/tmp/Branch.pm Tue Nov 23 16:36:58 2004 @@ -47,7 +47,7 @@ my $s = $db->{summary}; - $self->[0] = [0, 0] unless @{$self->[0]}; + $self->[0] = [0, 0] unless ((ref $self eq 'ARRAY') && @{$self->[0]}); my $t = $self->total; my $u = $self->uncoverable; ############# Although later, I still get this warning/error: Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.0/mach/Devel/Cover/Report/Html_minimal.pm line 527, <$in> line 42. This is on FreeBSD 5.1


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.