From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 21 Mar 2000 10:05:42 +0000 (+0000)
Subject: clone awareness for change#5847
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a4b82a6f432d8ee296977d1ecd6955ece52324d0;p=p5sagit%2Fp5-mst-13.2.git

clone awareness for change#5847

p4raw-link: @5847 on //depot/perl: 9e5093700069f9f74b9ca2d59c30b0b9880239d2

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

diff --git a/sv.c b/sv.c
index f6f49d2..11e1b11 100644
--- a/sv.c
+++ b/sv.c
@@ -6992,6 +6992,9 @@ Perl_cx_dup(pTHX_ PERL_CONTEXT *cxs, I32 ix, I32 max)
 		ncx->blk_loop.iterdata	= (CxPADLOOP(cx)
 					   ? cx->blk_loop.iterdata
 					   : gv_dup((GV*)cx->blk_loop.iterdata));
+		ncx->blk_loop.oldcurpad
+		    = (SV**)ptr_table_fetch(PL_ptr_table,
+					    cx->blk_loop.oldcurpad);
 		ncx->blk_loop.itersave	= sv_dup_inc(cx->blk_loop.itersave);
 		ncx->blk_loop.iterlval	= sv_dup_inc(cx->blk_loop.iterlval);
 		ncx->blk_loop.iterary	= av_dup_inc(cx->blk_loop.iterary);