diff options
| author |   afresh1 <afresh1@openbsd.org> | 2019-02-13 21:15:00 +0000 |
|---|---|---|
| committer | afresh1 <afresh1@openbsd.org> | 2019-02-13 21:15:00 +0000 |
| commit | 9f11ffb7133c203312a01e4b986886bc88c7d74b (patch) | |
| tree | 6618511204c614b20256e4ef9dea39a7b311d638 /gnu/usr.bin/perl/t/lib/warnings/sv | |
| parent | Import perl-5.28.1 (diff) | |
| download | wireguard-openbsd-9f11ffb7133c203312a01e4b986886bc88c7d74b.tar.xz wireguard-openbsd-9f11ffb7133c203312a01e4b986886bc88c7d74b.zip | |
Fix merge issues, remove excess files - match perl-5.28.1 dist
looking good sthen@, Great! bluhm@
Diffstat (limited to 'gnu/usr.bin/perl/t/lib/warnings/sv')
| -rw-r--r-- | gnu/usr.bin/perl/t/lib/warnings/sv | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/t/lib/warnings/sv b/gnu/usr.bin/perl/t/lib/warnings/sv index 5ddd4fe1303..64f624c5edb 100644 --- a/gnu/usr.bin/perl/t/lib/warnings/sv +++ b/gnu/usr.bin/perl/t/lib/warnings/sv @@ -200,7 +200,7 @@ $C .= $A ; EXPECT Use of uninitialized value $A in concatenation (.) or string at - line 10. ######## -# perlbug 20011116.125 +# perlbug 20011116.125 (#7917) use warnings 'uninitialized'; $a = undef; $foo = join '', $a, "\n"; @@ -341,10 +341,13 @@ Invalid conversion in sprintf: "%+2L\003" at - line 19. # sv.c use warnings 'misc' ; *a = undef ; +(*c) = (); no warnings 'misc' ; *b = undef ; +(*d) = (); EXPECT Undefined value assigned to typeglob at - line 3. +Undefined value assigned to typeglob at - line 4. ######## # sv.c use warnings 'numeric' ; @@ -413,3 +416,11 @@ Argument "a_c" isn't numeric in preincrement (++) at - line 5. Argument "(?^:abc)" isn't numeric in preincrement (++) at - line 6. Argument "123x" isn't numeric in preincrement (++) at - line 7. Argument "123e" isn't numeric in preincrement (++) at - line 8. +######## +# RT #128257 This used to SEGV +use warnings; +sub Foo::f {} +undef *Foo::; +*Foo::f =sub {}; +EXPECT +Subroutine f redefined at - line 5. |