projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
91027b9
)
clone awareness for change#5847
author
Gurusamy Sarathy
<gsar@cpan.org>
Tue, 21 Mar 2000 10:05:42 +0000
(10:05 +0000)
committer
Gurusamy 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
patch
|
blob
|
history
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);