From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 4 Jul 2000 04:07:46 +0000 (+0000)
Subject: fix ~320 byte memory leak (psig_{ptr,name} tables were never freed)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cf36064f875775fbd01f4387ab083483e8fa24f8;p=p5sagit%2Fp5-mst-13.2.git

fix ~320 byte memory leak (psig_{ptr,name} tables were never freed)

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

diff --git a/perl.c b/perl.c
index ade1d3c..eb454b9 100644
--- a/perl.c
+++ b/perl.c
@@ -716,6 +716,8 @@ perl_destruct(pTHXx)
     Safefree(PL_reg_poscache);
     Safefree(HeKEY_hek(&PL_hv_fetch_ent_mh));
     Safefree(PL_op_mask);
+    Safefree(PL_psig_ptr);
+    Safefree(PL_psig_name);
     nuke_stacks();
     PL_hints = 0;		/* Reset hints. Should hints be per-interpreter ? */