From ca5b42cb45f4f349d2f4294782df89816ca80d76 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 6 Jul 1999 16:52:37 +0000
Subject: fix int vs STRLEN issue

p4raw-id: //depot/perl@3619
---
 pp.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'pp.c')

diff --git a/pp.c b/pp.c
index d28a8c21d6..2f51f87e3d 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 */
 	    }
 	}
     }
-- 
cgit v1.2.1