| Subject: | B::Utils::carp bad sub call: preparewarn |
The code mentioned below returns the following error.
perl 5.8.3
Linux lik 2.6.5-gentoo-r1 #3 SMP Wed May 26 23:12:02 CDT 2004 i686 AMD Athlon(tm) XP 2500+ AuthenticAMD GNU/Linux
Undefined subroutine &B::Utils::preparewarn called at /home/josh/perl5.8.3/lib/site_perl/5.8.3/B/Utils.pm line 331.
CHECK failed--call queue aborted.
use B::Utils qw( walkallops_filtered opgrep carp );
walkallops_filtered(
sub { opgrep( { name => [ "!" ] }, @_ ) },
sub { carp( $_[0]->oldname ) } );