From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 16 Feb 2008 07:06:16 +0000 (+0000)
Subject: Correctly reference count the hints hash
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=50a25f5b3f6c81747a40fdda68c9ad6bf32980bc;p=p5sagit%2Fp5-mst-13.2.git

Correctly reference count the hints hash

p4raw-id: //depot/perl@33322
---

diff --git a/pp_ctl.c b/pp_ctl.c
index af08661..1dcca0b 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3564,7 +3564,10 @@ PP(pp_require)
 
     SAVEHINTS();
     PL_hints = 0;
-    PL_compiling.cop_hints_hash = NULL;
+    if (PL_compiling.cop_hints_hash) {
+	Perl_refcounted_he_free(aTHX_ PL_compiling.cop_hints_hash);
+	PL_compiling.cop_hints_hash = NULL;
+    }
 
     SAVECOMPILEWARNINGS();
     if (PL_dowarn & G_WARN_ALL_ON)