[perl #112316] Make strict vars respect assignment from null pkg

Under threads, strict vars was not respecting glob assignment from a
package with a null in its name if the name of the package assigned to
was equal to the prefix of the current package up to the null.

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