diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-05-02 07:35:50 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-03 01:23:48 +0000 |
| commit | 78c267c1fefa70a5151ef881f753b64ee0a3771e (patch) | |
| tree | 496c014f906372177ec24694acc93a4b42575ce0 /toke.c | |
| parent | 5e12dbfa1fc5fab9ffcdf3a398fa9f5c92327e0d (diff) | |
| download | perl-78c267c1fefa70a5151ef881f753b64ee0a3771e.tar.gz | |
Random input test and Perl
Message-Id: <200105022135.OAA26245@fac-813-1.math.Berkeley.EDU>
p4raw-id: //depot/perl@9969
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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; |