From 48c2c411a1dfc4a3e5e0e6829b02441a37bb3081 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Tue, 5 Nov 2013 15:52:59 -0800 Subject: [PATCH] gv.c:gv_try_downgrade: Use hv_fetchhek Unlike hv_fetch, this also passes the precomputed hash, saving hv_common from having to recalculate it. --- gv.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/gv.c b/gv.c index 08aaf9a..136bada 100644 --- a/gv.c +++ b/gv.c @@ -3351,8 +3351,7 @@ Perl_gv_try_downgrade(pTHX_ GV *gv) CvCONST(cv) && !CvMETHOD(cv) && !CvLVALUE(cv) && !CvUNIQUE(cv) && !CvNODEBUG(cv) && !CvCLONE(cv) && !CvCLONED(cv) && !CvANON(cv) && (namehek = GvNAME_HEK(gv)) && - (gvp = hv_fetch(stash, HEK_KEY(namehek), - HEK_LEN(namehek)*(HEK_UTF8(namehek) ? -1 : 1), 0)) && + (gvp = hv_fetchhek(stash, namehek, 0)) && *gvp == (SV*)gv) { SV *value = SvREFCNT_inc(CvXSUBANY(cv).any_ptr); const bool imported = !!GvIMPORTED_CV(gv); -- 2.7.4