toke.c: Don't compare same bytes twice

Before starting this memEQ, we know that the first bytes are the same,
so might as well start the compare with the 2nd bytes.

diff --git a/toke.c b/toke.c
index b0880b9..b37052e 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -10546,7 +10546,8 @@ S_scan_str(pTHX_ char *start, int keep_bracketed_quoted, int keep_delims, int re
                else if (*s == term) {
                    if (termlen == 1)
                        break;
-                   if (s+termlen <= PL_bufend && memEQ(s, (char*)termstr, termlen))
+                    if (   s + termlen <= PL_bufend
+                        && memEQ(s + 1, (char*)termstr + 1, termlen - 1))
                     {
                         if (   check_grapheme
                             && UNLIKELY(! _is_grapheme((U8 *) start,