From: Stephen McCamant <smcc@mit.edu>
Date: Thu, 29 Mar 2001 18:50:45 +0000 (-0800)
Subject: Better peep()ing for foreach() loops
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9c2ca71a1e63b63dd28667d8d5cbde30396813df;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;