It helps to actually *remove* the now-superfluous strlen().

(An addendum to 26050.)

p4raw-id: //depot/perl@26052

diff --git a/toke.c b/toke.c
index cb13580..b8d20b7 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -688,7 +688,6 @@ S_incline(pTHX_ char *s)
            char smallbuf[256], smallbuf2[256];
            char *tmpbuf, *tmpbuf2;
            GV **gvp, *gv2;
-           STRLEN tmplen = strlen(cf);
            STRLEN tmplen2 = strlen(s);
            if (tmplen + 3 < sizeof smallbuf)
                tmpbuf = smallbuf;