diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-24 10:44:25 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-24 10:44:25 +0000 |
| commit | a28356daf92caa7f638e39190a3f2c5a3cd8acfe (patch) | |
| tree | 5083feb034f3d90f3b53f7d28d883bbe0296a06e /pp_hot.c | |
| parent | 4b70616db4b88e90e04bbf6a612b803f6a4d8dc1 (diff) | |
| download | perl-a28356daf92caa7f638e39190a3f2c5a3cd8acfe.tar.gz | |
Split out foreach iterations of temporary lists on the stack to
CXt_LOOP_STACK. Don't use cx->blk_loop.iterary to store PL_curstack.
p4raw-id: //depot/perl@33059
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1911,7 +1911,7 @@ PP(pp_iter) DIE(aTHX_ "panic: pp_iter"); itersvp = CxITERVAR(cx); - av = cx->blk_loop.iterary; + av = CxTYPE(cx) == CXt_LOOP_STACK ? PL_curstack : cx->blk_loop.iterary; if (SvTYPE(av) != SVt_PVAV) { /* iterate ($min .. $max) */ if (cx->blk_loop.iterlval) { |