Fix range operator

From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510801141656i325ac69ev8a0af47f9fe72a1e@mail.gmail.com>

p4raw-id: //depot/perl@32979

1 files changed, 9 insertions, 0 deletions

diff --git a/pp_hot.c b/pp_hot.c
index 2cb394e8a6..ad9e0ea5fc 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1961,6 +1961,15 @@ PP(pp_iter)
 	    *itersvp = newSViv(cx->blk_loop.iterix++);
 	    SvREFCNT_dec(oldsv);
 	}
+
+	/* Handle end of range at IV_MAX */
+	if ((cx->blk_loop.iterix == IV_MIN) &&
+	    (cx->blk_loop.itermax == IV_MAX))
+	{
+	    cx->blk_loop.iterix++;
+	    cx->blk_loop.itermax++;
+	}
+
 	RETPUSHYES;
     }