Change 33322: Correctly reference count the hints hash

[Rafael Garcia-Suarez]

Change 33322 by [EMAIL PROTECTED] on 2008/02/16 07:06:16

        Correctly reference count the hints hash

Affected files ...

... //depot/perl/pp_ctl.c#686 edit

Differences ...

==== //depot/perl/pp_ctl.c#686 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c#685~33311~    2008-02-14 08:30:32.000000000 -0800
+++ perl/pp_ctl.c       2008-02-15 23:06:16.000000000 -0800
@@ -3564,7 +3564,10 @@
 
     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)
End of Patch.