diff options
author | Zefram <zefram@fysh.org> | 2017-11-29 14:12:51 +0000 |
---|---|---|
committer | Zefram <zefram@fysh.org> | 2017-11-29 14:12:51 +0000 |
commit | df9e1bc13efe0941735d662db5683d62b3851535 (patch) | |
tree | 3571158d87f6fb3d9f850e9440f44238aa2015ee /pp_ctl.c | |
parent | af8bd34d16b94bde32535062ba4e88407be233a0 (diff) | |
download | perl-df9e1bc13efe0941735d662db5683d62b3851535.tar.gz |
use blk_loop format for CXt_GIVEN
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -4709,8 +4709,8 @@ PP(pp_leavewhen) } else { PERL_ASYNC_CHECK(); - assert(cx->blk_givwhen.leave_op->op_type == OP_LEAVEGIVEN); - return cx->blk_givwhen.leave_op; + assert(cx->blk_loop.my_op->op_nextop->op_type == OP_LEAVEGIVEN); + return cx->blk_loop.my_op->op_nextop; } } @@ -4759,7 +4759,7 @@ PP(pp_break) cx = CX_CUR(); PL_stack_sp = PL_stack_base + cx->blk_oldsp; - return cx->blk_givwhen.leave_op; + return cx->blk_loop.my_op->op_nextop; } static MAGIC * |