Fix Win32 compiler warnings introduced by #33081 and #33085

p4raw-id: //depot/perl@33106

1 files changed, 4 insertions, 1 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index ff7934936f..86c5074da2 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1838,6 +1838,8 @@ PP(pp_enteriter)
     U8 cxtype = CXt_LOOP_FOR;
 #ifdef USE_ITHREADS
     PAD *iterdata;
+#else
+    PADOFFSET op;
 #endif
 
     ENTER;
@@ -1875,7 +1877,8 @@ PP(pp_enteriter)
 #ifdef USE_ITHREADS
     PUSHLOOP_FOR(cx, iterdata, MARK, PL_op->op_targ);
 #else
-    PUSHLOOP_FOR(cx, svp, MARK, /*Not used*/);
+    PERL_UNUSED_VAR(op);
+    PUSHLOOP_FOR(cx, svp, MARK, op/*Not used*/);
 #endif
     if (PL_op->op_flags & OPf_STACKED) {
 	SV *maybe_ary = POPs;