From: Dave Mitchell <davem@fdisolutions.com>
Date: Mon, 18 Jul 2005 00:16:31 +0000 (+0000)
Subject: perl -Dstv -e'... for min..max' displayed wrong stack elements
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d4665a058b801ffbd8460e05d21994b99777b0e2;p=p5sagit%2Fp5-mst-13.2.git

perl -Dstv -e'... for min..max' displayed wrong stack elements

p4raw-id: //depot/perl@25163
---

diff --git a/pp_ctl.c b/pp_ctl.c
index 2a10ab0..dc91e6b 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1849,6 +1849,10 @@ PP(pp_enteriter)
 		    DIE(aTHX_ "Range iterator outside integer range");
 		cx->blk_loop.iterix = SvIV(sv);
 		cx->blk_loop.itermax = SvIV(right);
+#ifdef DEBUGGING
+		/* for correct -Dstv display */
+		cx->blk_oldsp = sp - PL_stack_base;
+#endif
 	    }
 	    else {
 		cx->blk_loop.iterlval = newSVsv(sv);