diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-07 14:48:14 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-07 14:48:14 +0000 |
| commit | 800b4dc45ee0b7a1fe78774d426afa0152fd5178 (patch) | |
| tree | 17b2c31b70c28a6a03b69eafb7e6cae588e5e22e /op.c | |
| parent | 9f1b100c7cce69ed98a684964aaf7c67cd5360d0 (diff) | |
| download | perl-800b4dc45ee0b7a1fe78774d426afa0152fd5178.tar.gz | |
Integrate change #9605 from maintperl into mainline.
can't optimize away scope entry if tr/// is present
p4raw-link: @9605 on //depot/maint-5.6/perl: c26ea50d9fd947ede98c9a5c8c05ff72fc15deaa
p4raw-id: //depot/perl@9607
p4raw-integrated: from //depot/maint-5.6/perl@9606 'merge in' t/op/tr.t
(@9551..) op.c (@9597..)
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -2654,6 +2654,7 @@ Perl_pmtrans(pTHX_ OP *o, OP *expr, OP *repl) I32 grows = 0; register short *tbl; + PL_hints |= HINT_BLOCK_SCOPE; complement = o->op_private & OPpTRANS_COMPLEMENT; del = o->op_private & OPpTRANS_DELETE; squash = o->op_private & OPpTRANS_SQUASH; |