diff options
author | David Mitchell <davem@iabyn.com> | 2010-09-08 12:11:41 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2010-09-08 14:48:29 +0100 |
commit | d57ce4dfca04719829a488a820a1248efb7e81a7 (patch) | |
tree | 2e432808d0098325828494bb490a633a9ecb534d /pp_ctl.c | |
parent | 6a7d5ce25a1c1b4c6bf66d85390668c816176471 (diff) | |
download | perl-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.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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); |