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

This is a follow-up to commits 6379d4a9a and 862504fb08.

As Karl Williamson (thank you!) pointed out, my changes were not suf-
ficient, because strEQ was still being used, which stops at the first
null, treating "foo\0bar" and "foo\0foo" as equivalent.

Under threads, strict vars was not respecting glob assignment from a
package with a null in its name to another also with a null in its
name, if the two package names shared a common prefix up to the null.

1 files changed, 1 insertions, 1 deletions

diff --git a/util.c b/util.c
index 716944d8f1..171456f3c2 100644
--- a/util.c
+++ b/util.c
@@ -5875,7 +5875,7 @@ Perl_stashpv_hvname_match(pTHX_ const COP *c, const HV *hv)
     else
         return (stashpv == name
                     || (HEK_LEN(HvNAME_HEK(hv)) == len
-			 && strEQ(stashpv, name)));
+			 && memEQ(stashpv, name, len)));
     /*NOTREACHED*/
     return FALSE;
 }