projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
fc674fa
)
Better peep()ing for foreach() loops
author
Stephen McCamant
<smcc@mit.edu>
Thu, 29 Mar 2001 18:50:45 +0000
(10:50 -0800)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Fri, 30 Mar 2001 02:56:04 +0000
(
02:56
+0000)
Message-ID: <15043.62129.253487.470281@soda.csua.berkeley.edu>
p4raw-id: //depot/perl@9464
op.c
patch
|
blob
|
history
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;