Tels wrote in perl.qa :
> --- Cover.pm.old Wed Sep 4 23:36:14 2002
> +++ Cover.pm Wed Sep 4 23:38:46 2002
> @@ -144,6 +144,8 @@ sub report
>
> for my $sub (@Todo)
> {
> + next unless $sub->[1]->CV->isa('B::CV');
That's a guard against a B::SPECIAL object, isn't it ?
Well, B::SPECIAL is for one of the internal constants '0', '1' and
'undef'. There ought to be a better interface to this, but I can't
really figure out what to improve.
In fact I think you really want
next if $sub->[1]->CV->isa('B::SPECIAL') == B::svref_2object(\undef);
(does this line fix your problem ?)
and there should be a shortcut for it.
> +
> if (class($sub->[1]->CV->START) eq "COP")
> {
> # Determine whether this sub is in a package we are covering.
