[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.

1 files changed, 2 insertions, 1 deletions

diff --git a/util.c b/util.c
index d147e9e8aa..cba3c7bbaf 100644
--- 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;
 }