diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-24 13:25:05 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-24 13:25:05 +0000 |
| commit | c25bf6989edf21dd302c4e306179cfffbc11bb5f (patch) | |
| tree | 25d041060e081377bb256454dcd055d22feb2bfb /pp_hot.c | |
| parent | c6fdafd0fef3b735d3a7b9441840698d27fe4e6b (diff) | |
| download | perl-c25bf6989edf21dd302c4e306179cfffbc11bb5f.tar.gz | |
Merge CXt_LOOP_STACK's use of itermax for the reverse minimum with
iterary, as the two structure members are not used simultaneously.
p4raw-id: //depot/perl@33062
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -1911,7 +1911,8 @@ PP(pp_iter) DIE(aTHX_ "panic: pp_iter"); itersvp = CxITERVAR(cx); - av = CxTYPE(cx) == CXt_LOOP_STACK ? PL_curstack : cx->blk_loop.iterary; + av = (CxTYPE(cx) == CXt_LOOP_STACK) + ? PL_curstack : cx->blk_loop.ary_min_u.iterary; if (SvTYPE(av) != SVt_PVAV) { /* iterate ($min .. $max) */ if (CxTYPE(cx) != CXt_LOOP_LAZYIV) { @@ -1978,7 +1979,7 @@ PP(pp_iter) if (PL_op->op_private & OPpITER_REVERSED) { /* In reverse, use itermax as the min :-) */ if (cx->blk_loop.iterix <= (CxTYPE(cx) == CXt_LOOP_STACK - ? cx->blk_loop.itermax : 0)) + ? cx->blk_loop.ary_min_u.itermin : 0)) RETPUSHNO; if (SvMAGICAL(av) || AvREIFY(av)) { |