diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-06-29 15:58:14 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-06-29 15:58:14 +0000 |
| commit | c69033f2a629160559f680da8e4e5a7e3c4c3a0c (patch) | |
| tree | d19b6ca86b0f5cbbbb1e078ab96eac111df03dfd /pp_hot.c | |
| parent | 9dc0b5dcb80b5128172acb8c4bd670aa72142821 (diff) | |
| download | perl-c69033f2a629160559f680da8e4e5a7e3c4c3a0c.tar.gz | |
First stab at not automatically creating an unused SV for GvSV
Enable it with -DPERL_DONT_CREATE_GVSV.
Currently if enabled 22 test scripts have failures, so still some way
to go.
p4raw-id: //depot/perl@25009
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -58,7 +58,7 @@ PP(pp_gvsv) if (PL_op->op_private & OPpLVAL_INTRO) PUSHs(save_scalar(cGVOP_gv)); else - PUSHs(GvSV(cGVOP_gv)); + PUSHs(GvSVn(cGVOP_gv)); RETURN; } @@ -1473,7 +1473,7 @@ Perl_do_readline(pTHX) if (av_len(GvAVn(PL_last_in_gv)) < 0) { IoFLAGS(io) &= ~IOf_START; do_open(PL_last_in_gv,"-",1,FALSE,O_RDONLY,0,Nullfp); - sv_setpvn(GvSV(PL_last_in_gv), "-", 1); + sv_setpvn(GvSVn(PL_last_in_gv), "-", 1); SvSETMAGIC(GvSV(PL_last_in_gv)); fp = IoIFP(io); goto have_fp; |