Nicer fix than #33106 (thanks to Nicholas Clark)

p4raw-id: //depot/perl@33109

diff --git a/pp_ctl.c b/pp_ctl.c
index 86c5074..b0ffcb5 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -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;