From 1c4916e5d90f0028c91aaa6bda8d297844c9610e Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Mon, 10 Mar 2003 18:34:39 -0600
Subject: [PATCH] clear PL_exitlist in perl_destruct From: "Craig A. Berry"
 <craigberry@mac.com> Message-ID: <3E6D837F.7000506@mac.com>

p4raw-id: //depot/perl@18910
---
 perl.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/perl.c b/perl.c
index 52cf4a7..b8598f5 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());
-- 
2.7.4