universal

来自「source of perl for linux application,」· 代码 · 共 16 行

  universal.c AOK

  Can't locate package %s for @%s::ISA	[S_isa_lookup]
      


__END__
# universal.c [S_isa_lookup]
print("SKIPPED\n# todo fix: overloading triggers spurious warnings\n"),exit;
use warnings 'misc' ;
@ISA = qw(Joe) ;
my $a = bless [] ;
UNIVERSAL::isa $a, Jim ;
EXPECT
Can't locate package Joe for @main::ISA at - line 5.