Change 33109 by [EMAIL PROTECTED] on 2008/01/29 17:39:41
Nicer fix than #33106 (thanks to Nicholas Clark)
Affected files ...
... //depot/perl/pp_ctl.c#682 edit
Differences ...
==== //depot/perl/pp_ctl.c#682 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c#681~33106~ 2008-01-29 07:06:55.000000000 -0800
+++ perl/pp_ctl.c 2008-01-29 09:39:41.000000000 -0800
@@ -1838,8 +1838,6 @@
U8 cxtype = CXt_LOOP_FOR;
#ifdef USE_ITHREADS
PAD *iterdata;
-#else
- PADOFFSET op;
#endif
ENTER;
@@ -1877,8 +1875,7 @@
#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;
End of Patch.
