X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.c;h=d9ebaca07b5dd4d5fe678b4f12a7b6bb558b719f;hb=80be973138d7f5bbcbe6ee9116f155c2883f2741;hp=e70bf7e4e368d1df096b56b64996bb6f50a3c850;hpb=b953482e2d970eeb88de96a38c087d03db83a5cd;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.c b/perl.c
index e70bf7e..d9ebaca 100644
--- a/perl.c
+++ b/perl.c
@@ -1233,6 +1233,13 @@ perl_destruct(pTHXx)
     PL_psig_ptr = (SV**)NULL;
     Safefree(PL_psig_pend);
     PL_psig_pend = (int*)NULL;
+    {
+	/* We need to NULL PL_psig_pend first, so that
+	   signal handlers know not to use it */
+	int *psig_save = PL_psig_pend;
+	PL_psig_pend = (int*)NULL;
+	Safefree(psig_save);
+    }
     PL_formfeed = NULL;
     nuke_stacks();
     PL_tainting = FALSE;