diff options
| author | Stephen McCamant <smcc@mit.edu> | 2001-03-29 10:50:45 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-30 02:56:04 +0000 |
| commit | 9c2ca71a1e63b63dd28667d8d5cbde30396813df (patch) | |
| tree | 152a31acda9bb2bdfe8b114f3f73f996951fc6e2 /op.c | |
| parent | fc674faa7c9829511ccc23843333f69487c1657e (diff) | |
| download | perl-9c2ca71a1e63b63dd28667d8d5cbde30396813df.tar.gz | |
Better peep()ing for foreach() loops
Message-ID: <15043.62129.253487.470281@soda.csua.berkeley.edu>
p4raw-id: //depot/perl@9464
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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; |