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 /doio.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 'doio.c')
| -rw-r--r-- | doio.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -734,7 +734,7 @@ Perl_nextargv(pTHX_ register GV *gv) IO * const io = GvIOp(gv); if (!PL_argvoutgv) - PL_argvoutgv = gv_fetchpvs("ARGVOUT",TRUE,SVt_PVIO); + PL_argvoutgv = gv_fetchpvs("ARGVOUT",GV_ADD,SVt_PVIO); if (io && (IoFLAGS(io) & IOf_ARGV) && (IoFLAGS(io) & IOf_START)) { IoFLAGS(io) &= ~IOf_START; if (PL_inplace) { @@ -767,7 +767,7 @@ Perl_nextargv(pTHX_ register GV *gv) if (PL_inplace) { TAINT_PROPER("inplace open"); if (oldlen == 1 && *PL_oldname == '-') { - setdefout(gv_fetchpvs("STDOUT",TRUE,SVt_PVIO)); + setdefout(gv_fetchpvs("STDOUT",GV_ADD,SVt_PVIO)); return IoIFP(GvIOp(gv)); } #ifndef FLEXFILENAMES @@ -934,7 +934,7 @@ Perl_nextargv(pTHX_ register GV *gv) SvREFCNT_dec(oldout); return Nullfp; } - setdefout(gv_fetchpvs("STDOUT",TRUE,SVt_PVIO)); + setdefout(gv_fetchpvs("STDOUT",GV_ADD,SVt_PVIO)); } return Nullfp; } |