From f747ebd621ca5f8cd5605b35b81db4ac486f68f9 Mon Sep 17 00:00:00 2001 From: Zefram Date: Fri, 21 Aug 2009 01:49:14 +0200 Subject: Add clear magic to %^H so that the HE chain is reset when you empty it. This fixes [perl #68590] : %^H not lexical enough. --- pp_ctl.c | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'pp_ctl.c') diff --git a/pp_ctl.c b/pp_ctl.c index 35e3436cb4..0eb513f9a3 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -3568,10 +3568,7 @@ PP(pp_require) SAVEHINTS(); PL_hints = 0; - if (PL_compiling.cop_hints_hash) { - Perl_refcounted_he_free(aTHX_ PL_compiling.cop_hints_hash); - PL_compiling.cop_hints_hash = NULL; - } + hv_clear(GvHV(PL_hintgv)); SAVECOMPILEWARNINGS(); if (PL_dowarn & G_WARN_ALL_ON) -- cgit v1.2.1