Change 27443 by [EMAIL PROTECTED] on 2006/03/09 18:08:52
Refactoring from Larry inplicit in the MAD patch.
Affected files ...
... //depot/perl/toke.c#653 edit
Differences ...
==== //depot/perl/toke.c#653 (text) ====
Index: perl/toke.c
--- perl/toke.c#652~27442~ 2006-03-09 09:06:46.000000000 -0800
+++ perl/toke.c 2006-03-09 10:08:52.000000000 -0800
@@ -3171,13 +3171,14 @@
CopLINE_dec(PL_curcop);
incline(s);
}
- d = PL_bufend;
- while (s < d && *s != '\n')
- s++;
- if (s < d)
- s++;
- else if (s > d) /* Found by Ilya: feed random input to Perl. */
- Perl_croak(aTHX_ "panic: input overflow");
+ d = s;
+ while (d < PL_bufend && *d != '\n')
+ d++;
+ if (d < PL_bufend)
+ d++;
+ else if (d > PL_bufend) /* Found by Ilya: feed random input to
Perl. */
+ Perl_croak(aTHX_ "panic: input overflow");
+ s = d;
incline(s);
if (PL_lex_formbrack && PL_lex_brackets <= PL_lex_formbrack) {
PL_bufptr = s;
End of Patch.
