From a4b82a6f432d8ee296977d1ecd6955ece52324d0 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Tue, 21 Mar 2000 10:05:42 +0000 Subject: [PATCH] clone awareness for change#5847 p4raw-link: @5847 on //depot/perl: 9e5093700069f9f74b9ca2d59c30b0b9880239d2 p4raw-id: //depot/perl@5855 --- sv.c | 3 +++ 1 file changed, 3 insertions(+) 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); -- 1.8.3.1