This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix int vs STRLEN issue
authorGurusamy Sarathy <gsar@cpan.org>
Tue, 6 Jul 1999 16:52:37 +0000 (16:52 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Tue, 6 Jul 1999 16:52:37 +0000 (16:52 +0000)
p4raw-id: //depot/perl@3619

pp.c

diff --git a/pp.c b/pp.c
index d28a8c2..2f51f87 100644 (file)
--- 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 */
            }
        }
     }