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 /pp_sys.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 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1330,7 +1330,7 @@ PP(pp_leavewrite) topname = sv_2mortal(Perl_newSVpvf(aTHX_ "%s_TOP", GvNAME(gv))); topgv = gv_fetchsv(topname, 0, SVt_PVFM); if ((topgv && GvFORM(topgv)) || - !gv_fetchpv("top", 0, SVt_PVFM)) + !gv_fetchpvs("top", 0, SVt_PVFM)) IoTOP_NAME(io) = savesvpv(topname); else IoTOP_NAME(io) = savepvs("top"); @@ -3856,7 +3856,7 @@ PP(pp_fork) if (childpid < 0) RETSETUNDEF; if (!childpid) { - GV * const tmpgv = gv_fetchpv("$", GV_ADD, SVt_PV); + GV * const tmpgv = gv_fetchpvs("$", GV_ADD, SVt_PV); if (tmpgv) { SvREADONLY_off(GvSV(tmpgv)); sv_setiv(GvSV(tmpgv), (IV)PerlProc_getpid()); |