diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-01 03:45:13 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-01 03:45:13 +0000 |
commit | 638eceb6656bf10acb1a6dc2a55880f5e1a6c8c4 (patch) | |
tree | 35c02afc07b97e44b7d4abdf0b4829f850a890a3 /pp_hot.c | |
parent | 7766f1371a6d2b58d0f46fbe6a60785860a39c1e (diff) | |
download | perl-638eceb6656bf10acb1a6dc2a55880f5e1a6c8c4.tar.gz |
minor USE_ITHREADS tweaks
p4raw-id: //depot/perl@4603
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -58,9 +58,9 @@ PP(pp_gvsv) djSP; EXTEND(SP,1); if (PL_op->op_private & OPpLVAL_INTRO) - PUSHs(save_scalar(cGVOP)); + PUSHs(save_scalar(cGVOP_gv)); else - PUSHs(GvSV(cGVOP)); + PUSHs(GvSV(cGVOP_gv)); RETURN; } @@ -95,7 +95,7 @@ PP(pp_stringify) PP(pp_gv) { djSP; - XPUSHs((SV*)cGVOP); + XPUSHs((SV*)cGVOP_gv); RETURN; } @@ -271,7 +271,7 @@ PP(pp_add) PP(pp_aelemfast) { djSP; - AV *av = GvAV(cGVOP); + AV *av = GvAV(cGVOP_gv); U32 lval = PL_op->op_flags & OPf_MOD; SV** svp = av_fetch(av, PL_op->op_private, lval); SV *sv = (svp ? *svp : &PL_sv_undef); |