Revert "[MERGE] add+use PL_curstackinfo->si_cxsubix field"

[perl5.git] / op.c

diff --git a/op.c b/op.c
index 29486a5..944c57a 100644 (file)
--- a/op.c
+++ b/op.c
@@ -5455,8 +5455,7 @@ Perl_op_scope(pTHX_ OP *o)
     dVAR;
     if (o) {
        if (o->op_flags & OPf_PARENS || PERLDB_NOOPT || TAINTING_get) {
-           o = op_prepend_elem(OP_LINESEQ,
-                    newOP(OP_ENTER, (o->op_flags & OPf_WANT)), o);
+           o = op_prepend_elem(OP_LINESEQ, newOP(OP_ENTER, 0), o);
             OpTYPE_set(o, OP_LEAVE);
        }
        else if (o->op_type == OP_LINESEQ) {