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

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

diff --git a/t/lib/strict/vars b/t/lib/strict/vars
index fdd7af3..28aab48 100644 (file)
--- a/t/lib/strict/vars
+++ b/t/lib/strict/vars
@@ -536,3 +536,12 @@ use strict 'vars';
 no warnings;
 eval q/$dweck/;
 EXPECT
+########
+# [perl #112316] strict vars getting confused by nulls
+# Assigning to 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

diff --git a/util.c b/util.c
index d147e9e..cba3c7b 100644 (file)
--- a/util.c
+++ b/util.c
@@ -5872,7 +5872,8 @@ Perl_stashpv_hvname_match(pTHX_ const COP *c, const HV *hv)
     }
     else
         return (stashpv == name
-                    || strEQ(stashpv, name));
+                    || ((STRLEN)HEK_LEN(HvNAME_HEK(hv)) == strlen(stashpv)
+                        && strEQ(stashpv, name)));
     /*NOTREACHED*/
     return FALSE;
 }