diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2002-10-18 14:36:40 +0100 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-22 17:04:26 +0000 |
| commit | f3548bdc4d2efd11e139d110e60764b9dae81319 (patch) | |
| tree | 422946e9b45718c9b89294215cd0ce41c7e258ea /sv.c | |
| parent | e0fa987931295419ee9237d08014c4c5381f1cf8 (diff) | |
| download | perl-f3548bdc4d2efd11e139d110e60764b9dae81319.tar.gz | |
PL_curpad == AvARRAY(PL_comppad) always
Message-ID: <20021018133640.A19172@fdgroup.com>
p4raw-id: //depot/perl@18048
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -9647,9 +9647,9 @@ Perl_cx_dup(pTHX_ PERL_CONTEXT *cxs, I32 ix, I32 max, CLONE_PARAMS* param) ncx->blk_loop.iterdata = (CxPADLOOP(cx) ? cx->blk_loop.iterdata : gv_dup((GV*)cx->blk_loop.iterdata, param)); - ncx->blk_loop.oldcurpad - = (SV**)ptr_table_fetch(PL_ptr_table, - cx->blk_loop.oldcurpad); + ncx->blk_loop.oldcomppad + = (PAD*)ptr_table_fetch(PL_ptr_table, + cx->blk_loop.oldcomppad); ncx->blk_loop.itersave = sv_dup_inc(cx->blk_loop.itersave, param); ncx->blk_loop.iterlval = sv_dup_inc(cx->blk_loop.iterlval, param); ncx->blk_loop.iterary = av_dup_inc(cx->blk_loop.iterary, param); |