This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c: newLOOPOP: Remove code supporting do-sub
authorFather Chrysostomos <sprout@cpan.org>
Tue, 24 Dec 2013 06:11:16 +0000 (22:11 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 24 Dec 2013 06:42:24 +0000 (22:42 -0800)
op.c

diff --git a/op.c b/op.c
index f411009..0426e87 100644 (file)
--- 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);