diff options
| author | Steve Hay <SteveHay@planit.com> | 2008-01-29 17:39:41 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2008-01-29 17:39:41 +0000 |
| commit | 52d1f6fbd78cbd98dc95a58db296db2bbc0759ae (patch) | |
| tree | ec85de0a88d1f318c1af3b9c5d1e5fd511414e48 /pp_ctl.c | |
| parent | 8c54174d094a78800e8ccba3f591a61aef9be2bf (diff) | |
| download | perl-52d1f6fbd78cbd98dc95a58db296db2bbc0759ae.tar.gz | |
Nicer fix than #33106 (thanks to Nicholas Clark)
p4raw-id: //depot/perl@33109
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -1838,8 +1838,6 @@ PP(pp_enteriter) U8 cxtype = CXt_LOOP_FOR; #ifdef USE_ITHREADS PAD *iterdata; -#else - PADOFFSET op; #endif ENTER; @@ -1877,8 +1875,7 @@ PP(pp_enteriter) #ifdef USE_ITHREADS PUSHLOOP_FOR(cx, iterdata, MARK, PL_op->op_targ); #else - PERL_UNUSED_VAR(op); - PUSHLOOP_FOR(cx, svp, MARK, op/*Not used*/); + PUSHLOOP_FOR(cx, svp, MARK, 0); #endif if (PL_op->op_flags & OPf_STACKED) { SV *maybe_ary = POPs; |