This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
move and rename cx_old_savestack_ix
[perl5.git] / pp_hot.c
index 8d00f7a..5f0ef99 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -3569,7 +3569,7 @@ PP(pp_entersub)
         hasargs = cBOOL(PL_op->op_flags & OPf_STACKED);
        PUSHSUB(cx);
        cx->blk_sub.retop = PL_op->op_next;
-        cx->cx_old_savestack_ix = old_savestack_ix;
+        cx->blk_oldsaveix = old_savestack_ix;
 
        padlist = CvPADLIST(cv);
        if (UNLIKELY((depth = ++CvDEPTH(cv)) >= 2)) {