In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/5aa91856e21c93226d08f19eb69098f224de5fff?hp=d955f84cfebcbed74088977f0bc7b1162c00a426>
- Log ----------------------------------------------------------------- commit 5aa91856e21c93226d08f19eb69098f224de5fff Author: Father Chrysostomos <[email protected]> Date: Mon Dec 30 21:18:54 2013 -0800 toke.c: Remove redundant check (and turn it into an assertion.) PL_lex_repl can only be set here if we are parsing a substitution (OP_SUBST) or transliteration (OP_TRANS). I believe this check has been unnecessary since perl 5.000, which it was added. ----------------------------------------------------------------------- Summary of changes: toke.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/toke.c b/toke.c index ca306f1..8ac0f31 100644 --- a/toke.c +++ b/toke.c @@ -2746,7 +2746,8 @@ S_sublex_done(pTHX) /* Is there a right-hand side to take care of? (s//RHS/ or tr//RHS/) */ assert(PL_lex_inwhat != OP_TRANSR); - if (PL_lex_repl && (PL_lex_inwhat == OP_SUBST || PL_lex_inwhat == OP_TRANS)) { + if (PL_lex_repl) { + assert (PL_lex_inwhat == OP_SUBST || PL_lex_inwhat == OP_TRANS); PL_linestr = PL_lex_repl; PL_lex_inpat = 0; PL_bufend = PL_bufptr = PL_oldbufptr = PL_oldoldbufptr = PL_linestart = SvPVX(PL_linestr); -- Perl5 Master Repository
