From: Craig A. Berry <craigberry@mac.com>
Date: Tue, 11 Mar 2003 00:34:39 +0000 (-0600)
Subject: clear PL_exitlist in perl_destruct
X-Git-Tag: accepted/trunk/20130322.191538~24640
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=1c4916e5d90f0028c91aaa6bda8d297844c9610e;p=platform%2Fupstream%2Fperl.git

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
--- 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());