Better peep()ing for foreach() loops

Message-ID: <15043.62129.253487.470281@soda.csua.berkeley.edu>

p4raw-id: //depot/perl@9464

diff --git a/op.c b/op.c
index 87ee1af..88d773c 100644 (file)
--- a/op.c
+++ b/op.c
@@ -6854,6 +6854,7 @@ Perl_peep(pTHX_ register OP *o)
            break;
 
        case OP_ENTERLOOP:
+       case OP_ENTERITER:
            o->op_seq = PL_op_seqmax++;
            while (cLOOP->op_redoop->op_type == OP_NULL)
                cLOOP->op_redoop = cLOOP->op_redoop->op_next;