diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2007-04-24 16:42:12 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2007-04-24 16:42:12 +0000 |
| commit | bdc0bf6fc8e477f7c30b05ea4c2ff791dd0f31af (patch) | |
| tree | cc2c75cb1546bcb69fc3c545a8f3b4c953f195d0 /cop.h | |
| parent | 7caa839cb84467e75e51a8014a80e98dcb2bb9d5 (diff) | |
| download | perl-bdc0bf6fc8e477f7c30b05ea4c2ff791dd0f31af.tar.gz | |
move PL_linestr from the interpreter struct to the parser struct
p4raw-id: //depot/perl@31058
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -388,7 +388,7 @@ struct block_eval { cx->blk_eval.old_op_type = PL_op->op_type; \ cx->blk_eval.old_namesv = (n ? newSVpv(n,0) : NULL); \ cx->blk_eval.old_eval_root = PL_eval_root; \ - cx->blk_eval.cur_text = PL_linestr; \ + cx->blk_eval.cur_text = PL_parser ? PL_parser->linestr : NULL; \ cx->blk_eval.cv = NULL; /* set by doeval(), as applicable */ \ cx->blk_eval.retop = NULL; \ cx->blk_eval.cur_top_env = PL_top_env; \ |