This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
clone awareness for change#5847
authorGurusamy Sarathy <gsar@cpan.org>
Tue, 21 Mar 2000 10:05:42 +0000 (10:05 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Tue, 21 Mar 2000 10:05:42 +0000 (10:05 +0000)
p4raw-link: @5847 on //depot/perl: 9e5093700069f9f74b9ca2d59c30b0b9880239d2

p4raw-id: //depot/perl@5855

sv.c

diff --git a/sv.c b/sv.c
index f6f49d2..11e1b11 100644 (file)
--- 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);