This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
It helps to actually *remove* the now-superfluous strlen().
authorNicholas Clark <nick@ccl4.org>
Tue, 8 Nov 2005 22:05:57 +0000 (22:05 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 8 Nov 2005 22:05:57 +0000 (22:05 +0000)
(An addendum to 26050.)

p4raw-id: //depot/perl@26052

toke.c

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;