op.c: newLOOPOP: Remove code supporting do-sub

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index f4110093f9..0426e8732d 100644
--- a/op.c
+++ b/op.c
@@ -6458,7 +6458,7 @@ Perl_newLOOPOP(pTHX_ I32 flags, I32 debuggable, OP *expr, OP *block)
     OP* listop;
     OP* o;
     const bool once = block && block->op_flags & OPf_SPECIAL &&
-      (block->op_type == OP_ENTERSUB || block->op_type == OP_NULL);
+		      block->op_type == OP_NULL;
 
     PERL_UNUSED_ARG(debuggable);