diff options
| author | Nicholas Clark <nick@ccl4.org> | 2004-07-14 23:35:24 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-07-14 23:35:24 +0000 |
| commit | c491ecac864a369a2913fd8e3ff31636a481b18b (patch) | |
| tree | 0242c9b8916edc769fa6e7a085a47fca4a1f2472 /pp_hot.c | |
| parent | ef3e5ea91ec4f974a02ae36f5bcc9e91bcab852f (diff) | |
| download | perl-c491ecac864a369a2913fd8e3ff31636a481b18b.tar.gz | |
"That's the way to do it"
In taking out a bug spotted by my regression tests in t/cmd/for.t
I actually managed to disable the entire optimisation. Which means
that I didn't find the other bug. This optimisation is live, and
passes all tests.
p4raw-id: //depot/perl@23109
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1888,7 +1888,7 @@ PP(pp_iter) /* iterate array */ if (PL_op->op_private & OPpITER_REVERSED) { /* In reverse, use itermax as the min :-) */ - if (cx->blk_loop.iterix <= 0) + if (cx->blk_loop.iterix <= cx->blk_loop.itermax) RETPUSHNO; if (SvMAGICAL(av) || AvREIFY(av)) { |