X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.c;h=a5f4e68b6b23646e9e44a643147f9eb163b9a156;hb=66fe0623488f98a7806a1e9f1451648932318696;hp=4911e79f3e1e4516301a9f072ae61679b84a0f1b;hpb=ba2475127660598ffe45c99cc6ca9e93a5ca847c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.c b/perl.c
index 4911e79..a5f4e68 100644
--- a/perl.c
+++ b/perl.c
@@ -724,6 +724,7 @@ perl_destruct(pTHXx)
     Safefree(PL_op_mask);
     Safefree(PL_psig_ptr);
     Safefree(PL_psig_name);
+    Safefree(PL_psig_pend);
     nuke_stacks();
     PL_hints = 0;		/* Reset hints. Should hints be per-interpreter ? */
 
@@ -789,12 +790,12 @@ perl_free(pTHXx)
 #  if defined(PERL_IMPLICIT_SYS)
     void *host = w32_internal_host;
     if (PerlProc_lasthost()) {
-	PerlIO_cleanup();     
+	PerlIO_cleanup();
     }
     PerlMem_free(aTHXx);
     win32_delete_internal_host(host);
 #else
-    PerlIO_cleanup();     
+    PerlIO_cleanup();
     PerlMem_free(aTHXx);
 #endif
 #  else