-----BEGIN PGP SIGNED MESSAGE-----
Moin,
On 04-Sep-02 Rafael Garcia-Suarez carved into stone:
> 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 ?
Weeeelll, actually, yes. Maybe against other objects, that is why I didn't
want to test for B::SPECIAL.
> 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.
I have no idea what you talk about - I am a total B:: newbie :)
OTOH, previous to 5.8.0 (e.g. 5.7.x) this used to work, so something
changed in either B:: or in Devel::Cover (but v0.14 of Devel::Cover is
rather old).
> 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 ?)
I'll try tomorrow. (My patch "fixes" the problem in that Devel::Cover no
longer crashes, but I am unsure whether it really works e.g. the numbers
are still correct)
> and there should be a shortcut for it.
And some testcases in Devel::Cover :)
>> +
>> if (class($sub->[1]->CV->START) eq "COP")
Alternatively, can B::SPECIAL get a START() and ROOT() method or does this
not make sense?
Thanx in advance,
Tels
- --
perl -MDev::Bollocks -e'print Dev::Bollocks->rand(),"\n"'
conveniently transition viral bandwidth
http://bloodgate.com/perl My current Perl projects
PGP key available on http://bloodgate.com/tels.asc or via email
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: When cryptography is outlawed, bayl bhgynjf jvyy unir cevinpl.
iQEVAwUBPXaEkncLPEOTuEwVAQHOlwf+JffoGuOed4BpuZ8KajuLl/KhT+JCMhuv
cLGPcmPROIYGE9c/8fNdLZ/7z0oRpb6IZLXIchdk3x/srKDJXYSY92uVSTREF458
xY3VrvlbvTRLUGlE8BJl8r82psbcm/HvwUqpY1UHfF3Wnvd6ErXd+80SWKaFUuCK
MVmOgbCjM019iaKQFFyoEatb0HWv5UqKQVUdEWG9zVG5lulLq5DzED++JL3c5JNQ
ee6vSq+P1ECURqpT1jvPou4KQzg48F5ln09z25ABFQlxuFzlOycOzQldoBtGvCe2
2C+nJVY7qdNWvDeh+KAUga1idto/osQ0k2E7ITgR99I/1b7sckvPRw==
=dol5
-----END PGP SIGNATURE-----
