diff options
| -rw-r--r-- | t/op/stash.t | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/t/op/stash.t b/t/op/stash.t index 744177511d..3d9d0841da 100644 --- a/t/op/stash.t +++ b/t/op/stash.t @@ -7,7 +7,7 @@ BEGIN { require "./test.pl"; -plan( tests => 8 ); +plan( tests => 9 ); # Used to segfault (bug #15479) fresh_perl_is( @@ -36,3 +36,17 @@ ok( defined %{"bongo::shaftsbury::"}, q(- work with hard refs too) ); package tyrone::slothrop; $bongo::shaftsbury::scalar = 1; + +package main; + +# Used to warn +# Unbalanced string table refcount: (1) for "A::" during global destruction. +# for ithreads. +{ + local $ENV{PERL_DESTRUCT_LEVEL} = 2; + fresh_perl_is( + 'package A; sub a { // }; %::=""', + '', + '', + ); +} |