diff options
| author | Karl Williamson <khw@cpan.org> | 2017-03-25 17:38:40 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2017-11-02 13:26:10 -0600 |
| commit | 5ffd609608e2a003d9a229e7cd0ba1f883c53ade (patch) | |
| tree | 2abeaf6ba10f6e4a95b9623cca7e56d750431856 /toke.c | |
| parent | 76dafe0b21a330026314b29e7392fe294b9af9e0 (diff) | |
| download | perl-5ffd609608e2a003d9a229e7cd0ba1f883c53ade.tar.gz | |
toke.c: Rmv useless code
This code is unreachable because the code above makes sure that the
variable can't be larger than PL_bufend, and the code is only executed
if it is larger.
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 7 |
1 files changed, 0 insertions, 7 deletions
@@ -5607,10 +5607,6 @@ Perl_yylex(pTHX) 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, %p > %p", - d, PL_bufend); s = d; if (in_comment && d == PL_bufend && PL_lex_state == LEX_INTERPNORMAL @@ -5633,9 +5629,6 @@ Perl_yylex(pTHX) if (s < PL_bufend) incline(s); } - else if (s > PL_bufend) - /* Found by Ilya: feed random input to Perl. */ - Perl_croak(aTHX_ "panic: input overflow"); } goto retry; case '-': |