This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix PL_psig_pend freeing
authorDavid Mitchell <davem@iabyn.com>
Sun, 19 Sep 2010 12:11:54 +0000 (13:11 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 20 Sep 2010 07:16:12 +0000 (08:16 +0100)
Commit 31c91b4357905486e81f901ad079da5735bdb7ba added a block of code
to free PL_psig_pend in a signal-safe way, but omitted to remove the
original unsafe freeing code above it. Removed with this commit.

perl.c

diff --git a/perl.c b/perl.c
index 79e87a5..5092958 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1250,8 +1250,6 @@ perl_destruct(pTHXx)
     Safefree(PL_psig_name);
     PL_psig_name = (SV**)NULL;
     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 */