OP_ENTERTRY no longer needs to handle OPf_SPECIAL flag

1 files changed, 0 insertions, 3 deletions

diff --git a/op.c b/op.c
index ae7c3209d8..594d4ee9c3 100644
--- a/op.c
+++ b/op.c
@@ -12805,15 +12805,12 @@ Perl_ck_eval(pTHX_ OP *o)
 
 	if (o->op_type == OP_ENTERTRY) {
 	    LOGOP *enter;
-            U8 flags = o->op_flags;
 
             /* cut whole sibling chain free from o */
             op_sibling_splice(o, NULL, -1, NULL);
 	    op_free(o);
 
             enter = alloc_LOGOP(OP_ENTERTRY, NULL, NULL);
-            if(flags & OPf_SPECIAL)
-                enter->op_flags |= OPf_SPECIAL;
 
 	    /* establish postfix order */
 	    enter->op_next = (OP*)enter;