Change the context type of for ($a .. $b) to CXt_LOOP_LAZYIV, and

assert that it isn't using  cx->blk_loop.iterlval.
Fix a casting bug when assigning a sentinal to cx->blk_loop.iterary.

p4raw-id: //depot/perl@33061

1 files changed, 1 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index 1feaa3e9dc..33293a5eeb 100644
--- a/sv.c
+++ b/sv.c
@@ -10542,6 +10542,7 @@ Perl_cx_dup(pTHX_ PERL_CONTEXT *cxs, I32 ix, I32 max, CLONE_PARAMS* param)
 						      param);
 		ncx->blk_eval.cur_text	= sv_dup(ncx->blk_eval.cur_text, param);
 		break;
+	    case CXt_LOOP_LAZYIV:
 	    case CXt_LOOP_FOR:
 		ncx->blk_loop.iterary	= av_dup_inc(ncx->blk_loop.iterary,
 						     param);