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

[Nicholas Clark]

Change 26052 by [EMAIL PROTECTED] on 2005/11/08 22:05:57

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

Affected files ...

... //depot/perl/toke.c#600 edit

Differences ...

==== //depot/perl/toke.c#600 (text) ====
Index: perl/toke.c
--- perl/toke.c#599~26050~      Tue Nov  8 13:37:52 2005
+++ perl/toke.c Tue Nov  8 14:05:57 2005
@@ -688,7 +688,6 @@
            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;
End of Patch.