From c96f4d3199da99e66c9172234f7dd6ff18ea8456 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Mon, 23 Dec 2013 22:11:16 -0800 Subject: [PATCH] op.c: newLOOPOP: Remove code supporting do-sub --- op.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/op.c b/op.c index f411009..0426e87 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); -- 2.7.4