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