summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2010-09-08 12:11:41 +0100
committerDavid Mitchell <davem@iabyn.com>2010-09-08 14:48:29 +0100
commitd57ce4dfca04719829a488a820a1248efb7e81a7 (patch)
tree2e432808d0098325828494bb490a633a9ecb534d /pp_ctl.c
parent6a7d5ce25a1c1b4c6bf66d85390668c816176471 (diff)
downloadperl-d57ce4dfca04719829a488a820a1248efb7e81a7.tar.gz
eliminate next_op from struct block_loop
This field is only used in non-threaded builds, and the comments imply that this is because in non-threaded builds this value may be modified. But nothing in core modifies it.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 3fd46ba29c..93d167545b 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2381,7 +2381,7 @@ PP(pp_next)
if (PL_scopestack_ix < inner)
leave_scope(PL_scopestack[PL_scopestack_ix]);
PL_curcop = cx->blk_oldcop;
- return CX_LOOP_NEXTOP_GET(cx);
+ return (cx)->blk_loop.my_op->op_nextop;
}
PP(pp_redo)
@@ -4769,7 +4769,7 @@ PP(pp_break)
PL_curcop = cx->blk_oldcop;
if (CxFOREACH(cx))
- return CX_LOOP_NEXTOP_GET(cx);
+ return (cx)->blk_loop.my_op->op_nextop;
else
/* RETURNOP calls PUTBACK which restores the old old sp */
RETURNOP(cx->blk_givwhen.leave_op);