diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-06 01:33:31 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-06 01:33:31 +0000 |
| commit | 2090ab20212398e485f20cd7e50303dcd3601be7 (patch) | |
| tree | 968f397721d6fa6e8d901eb28b793a71bdabc288 /cop.h | |
| parent | 758e67a87e10a9deb9b76152119daf8ca2aa6267 (diff) | |
| download | perl-2090ab20212398e485f20cd7e50303dcd3601be7.tar.gz | |
Integrate change #10448 from maintperl; lexicals
outside an eval"" weren't resolved correctly inside a subroutine
definition inside the eval"" if they were not already referenced
in the toplevel of the eval""-ed code
p4raw-link: @10448 on //depot/maint-5.6/perl: 332ba4f98bc63c81fd7ba0d06432a7f903d716cf
p4raw-id: //depot/perl@10449
p4raw-integrated: from //depot/maint-5.6/perl@10447 'merge in' cop.h
(@9288..) t/op/misc.t (@10394..) op.c pp_ctl.c (@10412..)
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -156,6 +156,7 @@ struct block_eval { SV * old_namesv; OP * old_eval_root; SV * cur_text; + CV * cv; }; #define PUSHEVAL(cx,n,fgv) \ @@ -165,6 +166,7 @@ struct block_eval { cx->blk_eval.old_namesv = (n ? newSVpv(n,0) : Nullsv); \ cx->blk_eval.old_eval_root = PL_eval_root; \ cx->blk_eval.cur_text = PL_linestr; \ + cx->blk_eval.cv = Nullcv; /* set by doeval(), as applicable */ \ } STMT_END #define POPEVAL(cx) \ |