From: Steve Hay <SteveHay@planit.com>
Date: Tue, 29 Jan 2008 17:39:41 +0000 (+0000)
Subject: Nicer fix than #33106 (thanks to Nicholas Clark)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=52d1f6fbd78cbd98dc95a58db296db2bbc0759ae;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;