From 9c2ca71a1e63b63dd28667d8d5cbde30396813df Mon Sep 17 00:00:00 2001 From: Stephen McCamant Date: Thu, 29 Mar 2001 10:50:45 -0800 Subject: [PATCH] Better peep()ing for foreach() loops Message-ID: <15043.62129.253487.470281@soda.csua.berkeley.edu> p4raw-id: //depot/perl@9464 --- op.c | 1 + 1 file changed, 1 insertion(+) 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; -- 2.7.4