diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-01-28 15:44:04 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-01-28 15:44:04 +0000 |
| commit | 5c1737d116a34c9fc2f84dad1ca8ff52ccdaaa64 (patch) | |
| tree | 35038b20dc63be53277b64fae3fe2aeafa04276a /doio.c | |
| parent | 5d581361370ea6b2ccaa8b33836e4524ded42d12 (diff) | |
| download | perl-5c1737d116a34c9fc2f84dad1ca8ff52ccdaaa64.tar.gz | |
Add gv_fetchpvs, which uses STR_WITH_LEN to call gv_fetchpvn_flags.
Many strlen()s saved.
p4raw-id: //depot/perl@26983
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -733,7 +733,7 @@ Perl_nextargv(pTHX_ register GV *gv) IO * const io = GvIOp(gv); if (!PL_argvoutgv) - PL_argvoutgv = gv_fetchpv("ARGVOUT",TRUE,SVt_PVIO); + PL_argvoutgv = gv_fetchpvs("ARGVOUT",TRUE,SVt_PVIO); if (io && (IoFLAGS(io) & IOf_ARGV) && (IoFLAGS(io) & IOf_START)) { IoFLAGS(io) &= ~IOf_START; if (PL_inplace) { @@ -766,7 +766,7 @@ Perl_nextargv(pTHX_ register GV *gv) if (PL_inplace) { TAINT_PROPER("inplace open"); if (oldlen == 1 && *PL_oldname == '-') { - setdefout(gv_fetchpv("STDOUT",TRUE,SVt_PVIO)); + setdefout(gv_fetchpvs("STDOUT",TRUE,SVt_PVIO)); return IoIFP(GvIOp(gv)); } #ifndef FLEXFILENAMES @@ -933,7 +933,7 @@ Perl_nextargv(pTHX_ register GV *gv) SvREFCNT_dec(oldout); return Nullfp; } - setdefout(gv_fetchpv("STDOUT",TRUE,SVt_PVIO)); + setdefout(gv_fetchpvs("STDOUT",TRUE,SVt_PVIO)); } return Nullfp; } |