gv_fetchpvn_flags ranks highly in the profile, and the ::/' scanning

loop is iterated over millions of times. Add a flag GV_NOTQUAL purely
as an optimisation, when the caller is passing in a string that is
known not to contain any package separators.

p4raw-id: //depot/perl@27053

1 files changed, 2 insertions, 2 deletions

diff --git a/pp_sort.c b/pp_sort.c
index 1c43f6dffb..868d6ab1e4 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_fetchpvs("a", GV_ADD, SVt_PV);
-		PL_secondgv = gv_fetchpvs("b", GV_ADD, SVt_PV);
+		PL_firstgv = gv_fetchpvs("a", GV_ADD|GV_NOTQUAL, SVt_PV);
+		PL_secondgv = gv_fetchpvs("b", GV_ADD|GV_NOTQUAL, SVt_PV);
 		PL_sortstash = stash;
 		SAVESPTR(GvSV(PL_firstgv));
 		SAVESPTR(GvSV(PL_secondgv));