Faster foreach integer range

	Message-ID: <m3k95qm1pg.fsf@furu.g.aas.no>

p4raw-id: //depot/perl@1367

1 files changed, 1 insertions, 0 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index bdc371f047..b1d2f68dc2 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1388,6 +1388,7 @@ PP(pp_enteriter)
 		     croak("Range iterator outside integer range");
 		 cx->blk_loop.iterix = SvIV(sv);
 		 cx->blk_loop.itermax = SvIV((SV*)cx->blk_loop.iterary);
+		 sv_setiv(*svp, 0); /* make sure index SV is IV capable */
 	    }
 	    else
 		cx->blk_loop.iterlval = newSVsv(sv);