clear PL_exitlist in perl_destruct

From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3E6D837F.7000506@mac.com>

p4raw-id: //depot/perl@18910

diff --git a/perl.c b/perl.c
index 52cf4a7..b8598f5 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -386,6 +386,9 @@ perl_destruct(pTHXx)
 
     Safefree(PL_exitlist);
 
+    PL_exitlist = NULL;
+    PL_exitlistlen = 0;
+
     if (destruct_level == 0){
 
        DEBUG_P(debprofdump());