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_sort.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_sort.c')
| -rw-r--r-- | pp_sort.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1631,8 +1631,8 @@ PP(pp_sort) SAVESPTR(PL_firstgv); SAVESPTR(PL_secondgv); SAVESPTR(PL_sortstash); - PL_firstgv = gv_fetchpv("a", TRUE, SVt_PV); - PL_secondgv = gv_fetchpv("b", TRUE, SVt_PV); + PL_firstgv = gv_fetchpvs("a", TRUE, SVt_PV); + PL_secondgv = gv_fetchpvs("b", TRUE, SVt_PV); PL_sortstash = stash; SAVESPTR(GvSV(PL_firstgv)); SAVESPTR(GvSV(PL_secondgv)); |