1 universal.c AOK 2 3 Can't locate package %s for @%s::ISA [S_isa_lookup] 4 5 6 7__END__ 8# universal.c [S_isa_lookup] 9print("SKIPPED\n# todo fix: overloading triggers spurious warnings\n"),exit; 10use warnings 'misc' ; 11@ISA = qw(Joe) ; 12my $a = bless [] ; 13UNIVERSAL::isa $a, Jim ; 14EXPECT 15Can't locate package Joe for @main::ISA at - line 5. 16######## 17# universal.c [S_isa_lookup] 18print("SKIPPED\n# todo fix: overloading triggers spurious warnings\n"),exit; 19use warnings 'misc' ; 20use utf8; 21use open qw( :utf8 :std ); 22package Ｙ; 23@ISA = qw(Joe) ; 24my $a = bless [] ; 25UNIVERSAL::isa $a, Jim ; 26EXPECT 27Can't locate package Joe for @Ｙ::ISA at - line 8. 28