17 lines
344 B
Plaintext
17 lines
344 B
Plaintext
universal.c AOK
|
|
|
|
Can't locate package %s for @%s::ISA [S_isa_lookup]
|
|
|
|
|
|
|
|
__END__
|
|
# universal.c [S_isa_lookup]
|
|
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.
|
|
Can't locate package Joe for @main::ISA.
|
|
Can't locate package Joe for @main::ISA.
|