diff options
author | Nicholas Clark <nick@ccl4.org> | 2006-02-02 00:36:38 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-02-02 00:36:38 +0000 |
commit | 71315bf2ed5c47e3f417cdce95f41fe9b0da6b1f (patch) | |
tree | 1779355572700dff2c66703cc911987108bd1d45 /pp_ctl.c | |
parent | b208e10c815b328b5c2ddc25197ff4990f6302e0 (diff) | |
download | perl-71315bf2ed5c47e3f417cdce95f41fe9b0da6b1f.tar.gz |
Yet more instances of gv_fetchpv... that should be GV_ADD rather than
TRUE.
Convert two gv_fetchpvn_flags to gv_fetchpvs.
p4raw-id: //depot/perl@27050
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1078,7 +1078,7 @@ PP(pp_flip) flip = SvIV(sv) == (IV)IoLINES(GvIOp(PL_last_in_gv)); } else { - GV * const gv = gv_fetchpvs(".", TRUE, SVt_PV); + GV * const gv = gv_fetchpvs(".", GV_ADD, SVt_PV); if (gv && GvSV(gv)) flip = SvIV(sv) == SvIV(GvSV(gv)); } @@ -1172,7 +1172,7 @@ PP(pp_flop) flop = SvIV(sv) == (IV)IoLINES(GvIOp(PL_last_in_gv)); } else { - GV * const gv = gv_fetchpvs(".", TRUE, SVt_PV); + GV * const gv = gv_fetchpvs(".", GV_ADD, SVt_PV); if (gv && GvSV(gv)) flop = SvIV(sv) == SvIV(GvSV(gv)); } } @@ -1674,7 +1674,7 @@ PP(pp_caller) const int off = AvARRAY(ary) - AvALLOC(ary); if (!PL_dbargs) { - GV* const tmpgv = gv_fetchpvs("DB::args", TRUE, SVt_PVAV); + GV* const tmpgv = gv_fetchpvs("DB::args", GV_ADD, SVt_PVAV); PL_dbargs = GvAV(gv_AVadd(tmpgv)); GvMULTI_on(tmpgv); AvREAL_off(PL_dbargs); /* XXX should be REIFY (see av.h) */ |