clear PL_exitlist in perl_destruct

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

p4raw-id: //depot/perl@18910

1 files changed, 3 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 52cf4a7938..b8598f5c11 100644
--- 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());