diff options
| author |   sthen <sthen@openbsd.org> | 2013-03-25 20:06:16 +0000 |
|---|---|---|
| committer | sthen <sthen@openbsd.org> | 2013-03-25 20:06:16 +0000 |
| commit | 898184e3e61f9129feb5978fad5a8c6865f00b92 (patch) | |
| tree | 56f32aefc1eed60b534611007c7856f82697a205 /gnu/usr.bin/perl/t/lib/warnings/universal | |
| parent | PGSHIFT -> PAGE_SHIFT (diff) | |
| download | wireguard-openbsd-898184e3e61f9129feb5978fad5a8c6865f00b92.tar.xz wireguard-openbsd-898184e3e61f9129feb5978fad5a8c6865f00b92.zip | |
import perl 5.16.3 from CPAN - worked on by Andrew Fresh and myself
Diffstat (limited to 'gnu/usr.bin/perl/t/lib/warnings/universal')
| -rw-r--r-- | gnu/usr.bin/perl/t/lib/warnings/universal | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/t/lib/warnings/universal b/gnu/usr.bin/perl/t/lib/warnings/universal index 69921cf8fdb..fc21973a483 100644 --- a/gnu/usr.bin/perl/t/lib/warnings/universal +++ b/gnu/usr.bin/perl/t/lib/warnings/universal @@ -13,3 +13,15 @@ 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. |