From 5c1737d116a34c9fc2f84dad1ca8ff52ccdaaa64 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sat, 28 Jan 2006 15:44:04 +0000 Subject: Add gv_fetchpvs, which uses STR_WITH_LEN to call gv_fetchpvn_flags. Many strlen()s saved. p4raw-id: //depot/perl@26983 --- pp_sort.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'pp_sort.c') diff --git a/pp_sort.c b/pp_sort.c index 7588625aa7..17b4550c1b 100644 --- a/pp_sort.c +++ b/pp_sort.c @@ -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)); -- cgit v1.2.1