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