From 0845736aa911ed8d7568022034b29a5eeec529a7 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sat, 2 Nov 2013 06:48:13 -0700 Subject: [PATCH] op.c:ck_open: Make hint lookup conditional on HINT_LOCALIZE_HH This makes this just a teeny tiny bit faster. HINT_LOCALIZE_HH will have been set in PL_hints if %^H has anything in it. So bypass the hash lookup altogether if that flag is not set. --- op.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/op.c b/op.c index 86fe99f..40df34a 100644 --- a/op.c +++ b/op.c @@ -9620,7 +9620,8 @@ OP * Perl_ck_open(pTHX_ OP *o) { dVAR; - HV * const table = GvHV(PL_hintgv); + HV * const table = + PL_hints & HINT_LOCALIZE_HH ? GvHV(PL_hintgv) : NULL;; PERL_ARGS_ASSERT_CK_OPEN; -- 2.7.4