correct pluralisation for "1 week"

[perl5.git] / util.c

diff --git a/util.c b/util.c
index 716944d..378ffe0 100644 (file)
--- a/util.c
+++ b/util.c
@@ -5727,6 +5727,10 @@ Perl_parse_unicode_opts(pTHX_ const char **popt)
   return opt;
 }
 
+#ifdef VMS
+#  include <starlet.h>
+#endif
+
 U32
 Perl_seed(pTHX)
 {
@@ -5758,7 +5762,6 @@ Perl_seed(pTHX)
 #endif
     U32 u;
 #ifdef VMS
-#  include <starlet.h>
     /* when[] = (low 32 bits, high 32 bits) of time since epoch
      * in 100-ns units, typically incremented ever 10 ms.        */
     unsigned int when[2];
@@ -5875,7 +5878,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;
 }