}
POPBLOCK(cx,PL_curpm);
+ LEAVE_SCOPE(cx->cx_u.cx_blk.blku_old_savestack_ix);
POPEVAL(cx);
namesv = cx->blk_eval.old_namesv;
#ifdef DEBUGGING
restartjmpenv = cx->blk_eval.cur_top_env;
restartop = cx->blk_eval.retop;
- LEAVE_SCOPE(cx->cx_u.cx_blk.blku_old_savestack_ix);
PL_tmps_floor = cx->cx_u.cx_blk.blku_old_tmpsfloor;
if (optype == OP_REQUIRE) {
}
SP = PL_stack_base + POPMARK; /* pop original mark */
POPBLOCK(cx,PL_curpm);
+ LEAVE_SCOPE(cx->cx_u.cx_blk.blku_old_savestack_ix);
POPEVAL(cx);
namesv = cx->blk_eval.old_namesv;
/* POPBLOCK has rendered LEAVE_with_name("evalcomp") unnecessary */
- LEAVE_SCOPE(cx->cx_u.cx_blk.blku_old_savestack_ix);
PL_tmps_floor = cx->cx_u.cx_blk.blku_old_tmpsfloor;
}
if (gimme != G_VOID)
SP = leave_common(newsp, SP, newsp, gimme, SVs_TEMP, FALSE);
POPBLOCK(cx,newpm);
+ LEAVE_SCOPE(cx->cx_u.cx_blk.blku_old_savestack_ix);
POPEVAL(cx);
namesv = cx->blk_eval.old_namesv;
retop = cx->blk_eval.retop;
SvPVX_const(namesv),
SvUTF8(namesv) ? -(I32)SvCUR(namesv) : (I32)SvCUR(namesv),
G_DISCARD);
- LEAVE_SCOPE(cx->cx_u.cx_blk.blku_old_savestack_ix);
PL_tmps_floor = cx->cx_u.cx_blk.blku_old_tmpsfloor;
Perl_die(aTHX_ "%"SVf" did not return a true value", SVfARG(namesv));
NOT_REACHED; /* NOTREACHED */
/* die_unwind() did LEAVE, or we won't be here */
}
else {
- LEAVE_SCOPE(cx->cx_u.cx_blk.blku_old_savestack_ix);
PL_tmps_floor = cx->cx_u.cx_blk.blku_old_tmpsfloor;
if (!keep)
CLEAR_ERRSV();
I32 optype;
POPBLOCK(cx,newpm);
+ LEAVE_SCOPE(cx->cx_u.cx_blk.blku_old_savestack_ix);
POPEVAL(cx);
PL_curpm = newpm;
- LEAVE_SCOPE(cx->cx_u.cx_blk.blku_old_savestack_ix);
PL_tmps_floor = cx->cx_u.cx_blk.blku_old_tmpsfloor;
PERL_UNUSED_VAR(optype);
}
SVs_PADTMP|SVs_TEMP, FALSE);
POPBLOCK(cx,newpm);
retop = cx->blk_eval.retop;
+ LEAVE_SCOPE(cx->cx_u.cx_blk.blku_old_savestack_ix);
POPEVAL(cx);
PERL_UNUSED_VAR(optype);
PL_curpm = newpm; /* Don't pop $1 et al till now */
- LEAVE_SCOPE(cx->cx_u.cx_blk.blku_old_savestack_ix);
PL_tmps_floor = cx->cx_u.cx_blk.blku_old_tmpsfloor;
CLEAR_ERRSV();