From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Wed, 2 May 2001 14:35:50 +0000 (-0700)
Subject: Random input test and Perl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=78c267c1fefa70a5151ef881f753b64ee0a3771e;p=p5sagit%2Fp5-mst-13.2.git

Random input test and Perl
Message-Id: <200105022135.OAA26245@fac-813-1.math.Berkeley.EDU>

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

diff --git a/toke.c b/toke.c
index 773db31..39b4b24 100644
--- a/toke.c
+++ b/toke.c
@@ -2847,6 +2847,8 @@ Perl_yylex(pTHX)
 		s++;
 	    if (s < d)
 		s++;
+	    else if (s > d) /* Found by Ilya: feed random input to Perl. */
+	        croak("panic: input overflow");
 	    incline(s);
 	    if (PL_lex_formbrack && PL_lex_brackets <= PL_lex_formbrack) {
 		PL_bufptr = s;