From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 8 Nov 2005 22:05:57 +0000 (+0000)
Subject: It helps to actually *remove* the now-superfluous strlen().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=261492a9c792cc5996fa288aed06262ae8bc3cb7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;