diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-21 10:05:42 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-21 10:05:42 +0000 |
| commit | a4b82a6f432d8ee296977d1ecd6955ece52324d0 (patch) | |
| tree | 030073749acca26ca1a015cf9c9ba9547c123871 /sv.c | |
| parent | 91027b9e52496b3c80e5e38066c5ec0ef75b36d9 (diff) | |
| download | perl-a4b82a6f432d8ee296977d1ecd6955ece52324d0.tar.gz | |
clone awareness for change#5847
p4raw-link: @5847 on //depot/perl: 9e5093700069f9f74b9ca2d59c30b0b9880239d2
p4raw-id: //depot/perl@5855
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -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); |