summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorZefram <zefram@fysh.org>2017-11-29 14:12:51 +0000
committerZefram <zefram@fysh.org>2017-11-29 14:12:51 +0000
commitdf9e1bc13efe0941735d662db5683d62b3851535 (patch)
tree3571158d87f6fb3d9f850e9440f44238aa2015ee /pp_ctl.c
parentaf8bd34d16b94bde32535062ba4e88407be233a0 (diff)
downloadperl-df9e1bc13efe0941735d662db5683d62b3851535.tar.gz
use blk_loop format for CXt_GIVEN
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index a3ece515cf..e8fcd46f45 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -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 *