Fix thinko in hek_eq_pvn_flags

Doing memEQ(str1, str2, len2) without checking the length
first will cause memEQ("forth","fort"...) to compare equal and
memEQ("fort","forth"...) to read unallocated memory.

This was only a potential future problem, as none of the callers reach
this branch.

1 files changed, 1 insertions, 1 deletions

diff --git a/hv.c b/hv.c
index a5a0f1affa..2004d3dcd0 100644
--- a/hv.c
+++ b/hv.c
@@ -2102,7 +2102,7 @@ hek_eq_pvn_flags(pTHX_ const HEK *hek, const char* pv, const I32 pvlen, const U3
 		        (const U8*)HEK_KEY(hek), HEK_LEN(hek)) == 0);
     }
     else
-        return ((HEK_KEY(hek) == pv)
+        return HEK_LEN(hek) == pvlen && ((HEK_KEY(hek) == pv)
                     || memEQ(HEK_KEY(hek), pv, pvlen));
 }