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

p4raw-id: //depot/perl@6297

1 files changed, 2 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index ade1d3cf07..eb454b91c1 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 ? */