contrib/perl5/t/pragma/warn/universal


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

  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.