diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-02-16 07:06:16 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-02-16 07:06:16 +0000 |
| commit | 50a25f5b3f6c81747a40fdda68c9ad6bf32980bc (patch) | |
| tree | b84946f42e1e294c3b31957318daa50c18db6441 /pp_ctl.c | |
| parent | 4137585d161068477223a004b005a7b78ff03d8e (diff) | |
| download | perl-50a25f5b3f6c81747a40fdda68c9ad6bf32980bc.tar.gz | |
Correctly reference count the hints hash
p4raw-id: //depot/perl@33322
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -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) |