From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 6 Jul 1999 16:52:37 +0000 (+0000)
Subject: fix int vs STRLEN issue
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ca5b42cb45f4f349d2f4294782df89816ca80d76;p=p5sagit%2Fp5-mst-13.2.git

fix int vs STRLEN issue

p4raw-id: //depot/perl@3619
---

diff --git a/pp.c b/pp.c
index d28a8c2..2f51f87 100644
--- a/pp.c
+++ b/pp.c
@@ -5005,9 +5005,9 @@ PP(pp_split)
 	SV *csv = CALLREG_INTUIT_STRING(aTHX_ rx);
 	char c;
 
-	i = rx->minlen;
-	if (i == 1 && !tail) {
-	    c = *SvPV(csv,i);
+	len = rx->minlen;
+	if (len == 1 && !tail) {
+	    c = *SvPV(csv,len);
 	    while (--limit) {
 		/*SUPPRESS 530*/
 		for (m = s; m < strend && *m != c; m++) ;
@@ -5033,7 +5033,7 @@ PP(pp_split)
 		if (make_mortal)
 		    sv_2mortal(dstr);
 		XPUSHs(dstr);
-		s = m + i;		/* Fake \n at the end */
+		s = m + len;		/* Fake \n at the end */
 	    }
 	}
     }