source:
trunk/essentials/dev-lang/perl/t/lib/warnings/universal@
3951
| Last change on this file since 3951 was 3181, checked in by , 19 years ago | |
|---|---|
| File size: 262 bytes | |
| Line | |
|---|---|
| 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] |
| 9 | use warnings 'misc' ; |
| 10 | @ISA = qw(Joe) ; |
| 11 | my $a = bless [] ; |
| 12 | UNIVERSAL::isa $a, Jim ; |
| 13 | EXPECT |
| 14 | Can't locate package Joe for @main::ISA at - line 5. |
Note:
See TracBrowser
for help on using the repository browser.
