diff options
Diffstat (limited to 'gnu/usr.bin/perl/t/op/stash.t')
| -rw-r--r-- | gnu/usr.bin/perl/t/op/stash.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/t/op/stash.t b/gnu/usr.bin/perl/t/op/stash.t index 151b7296f1a..b8e0f349667 100644 --- a/gnu/usr.bin/perl/t/op/stash.t +++ b/gnu/usr.bin/perl/t/op/stash.t @@ -7,7 +7,7 @@ BEGIN { BEGIN { require "./test.pl"; } -plan( tests => 51 ); +plan( tests => 52 ); # Used to segfault (bug #15479) fresh_perl_like( @@ -334,3 +334,10 @@ is runperl( ), "ok\n", '[perl #123847] no crash from *foo::=*bar::=*glob_with_hash'; + +is runperl( + prog => '%h; *::::::=*h; delete $::{q|::|}; print qq|ok\n|', + stderr => 1, + ), + "ok\n", + '[perl #128086] no crash from assigning hash to *:::::: & deleting it'; |