diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/strict/vars | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/t/lib/strict/vars b/t/lib/strict/vars index 28aab48e5c..568d991978 100644 --- a/t/lib/strict/vars +++ b/t/lib/strict/vars @@ -545,3 +545,12 @@ package foo; use strict; eval 'package Foo; @bar = 1' or die; EXPECT +######## +# [perl #112316] strict vars getting confused by nulls +# Assigning from within a package whose name contains a null +BEGIN { *Foo:: = *{"foo\0bar::"} } +package Foo; +*foo::bar = []; +use strict; +eval 'package foo; @bar = 1' or die; +EXPECT |