Change 33696: Using memEQ() rather than strnEQ() when the length is known feels

[Nicholas Clark]

Change 33696 by [EMAIL PROTECTED] on 2008/04/16 10:59:28

        Using memEQ() rather than strnEQ() when the length is known feels
        cleaner.

Affected files ...

... //depot/perl/gv.c#391 edit

Differences ...

==== //depot/perl/gv.c#391 (text) ====
Index: perl/gv.c
--- perl/gv.c#390~33665~        2008-04-11 03:48:44.000000000 -0700
+++ perl/gv.c   2008-04-16 03:59:28.000000000 -0700
@@ -520,7 +520,7 @@
 
        if (!stash)
            return NULL;        /* UNIVERSAL::AUTOLOAD could cause trouble */
-       if (len == S_autolen && strnEQ(name, S_autoload, S_autolen))
+       if (len == S_autolen && memEQ(name, S_autoload, S_autolen))
            return NULL;
        if (!(gv = gv_fetchmeth(stash, S_autoload, S_autolen, FALSE)))
            return NULL;
@@ -635,7 +635,7 @@
        name = nsplit + 1;
        if (*nsplit == ':')
            --nsplit;
-       if ((nsplit - origname) == 5 && strnEQ(origname, "SUPER", 5)) {
+       if ((nsplit - origname) == 5 && memEQ(origname, "SUPER", 5)) {
            /* ->SUPER::method should really be looked up in original stash */
            SV * const tmpstr = sv_2mortal(Perl_newSVpvf(aTHX_ "%s::SUPER",
                                                  CopSTASHPV(PL_curcop)));
@@ -702,7 +702,7 @@
 
     PERL_ARGS_ASSERT_GV_AUTOLOAD4;
 
-    if (len == S_autolen && strnEQ(name, S_autoload, S_autolen))
+    if (len == S_autolen && memEQ(name, S_autoload, S_autolen))
        return NULL;
     if (stash) {
        if (SvTYPE(stash) < SVt_PVHV) {
End of Patch.