integrate change#9464 from mainline (addendum to change#8313)

Subject: [PATCH @9452] Better peep()ing for foreach() loops

p4raw-link: @9464 on //depot/perl: 9c2ca71a1e63b63dd28667d8d5cbde30396813df
p4raw-link: @8313 on //depot/perl: 58cccf98a8ed478d6cf084cb2de62268c379cbc6

p4raw-id: //depot/maint-5.6/perl@9597
p4raw-integrated: from //depot/perl@9464 'merge in' op.c (@9325..)

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index faf4f999f0..119489ccb7 100644
--- a/op.c
+++ b/op.c
@@ -6691,6 +6691,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;