pp_return: avoid potential CX stack realloc prob

[perl5.git] / cop.h

diff --git a/cop.h b/cop.h
index b79ae27..525f546 100644 (file)
--- a/cop.h
+++ b/cop.h
@@ -753,7 +753,6 @@ struct block_eval {
 #define POPEVAL(cx)                                                    \
     STMT_START {                                                       \
        PL_in_eval = CxOLD_IN_EVAL(cx);                                 \
-       optype = CxOLD_OP_TYPE(cx);                                     \
        PL_eval_root = cx->blk_eval.old_eval_root;                      \
        if (cx->blk_eval.cur_text && SvSCREAM(cx->blk_eval.cur_text))   \
            SvREFCNT_dec_NN(cx->blk_eval.cur_text);                     \