Commit | Line | Data |
---|---|---|
767a6a26 | 1 | universal.c AOK |
599cee73 | 2 | |
767a6a26 | 3 | Can't locate package %s for @%s::ISA [S_isa_lookup] |
4 | ||
599cee73 | 5 | |
6 | ||
7 | __END__ | |
767a6a26 | 8 | # universal.c [S_isa_lookup] |
b0f01acb | 9 | print("SKIPPED\n# todo fix: overloading triggers spurious warnings\n"),exit; |
4438c4b7 | 10 | use warnings 'misc' ; |
767a6a26 | 11 | @ISA = qw(Joe) ; |
12 | my $a = bless [] ; | |
13 | UNIVERSAL::isa $a, Jim ; | |
599cee73 | 14 | EXPECT |
767a6a26 | 15 | Can't locate package Joe for @main::ISA at - line 5. |