From: Chip Salzenberg <chip@atlantic.net>
Date: Mon, 30 Dec 1996 21:52:01 +0000 (+1200)
Subject: Fix core dump on perl_construct()/perl_destruct() loop
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5618dfe8ec87ebafaf94fe40d18f7c2c4cdd1518;p=p5sagit%2Fp5-mst-13.2.git

Fix core dump on perl_construct()/perl_destruct() loop
---

diff --git a/perl.c b/perl.c
index aa6a1a4..9b3a506 100644
--- a/perl.c
+++ b/perl.c
@@ -219,6 +219,11 @@ register PerlInterpreter *sv_interp;
     statgv = Nullgv;
     laststatval = -1;
 
+    sv_free((SV*)beginav);
+    beginav = Nullav;
+    sv_free((SV*)endav);
+    endav = Nullav;
+
     /* Prepare to destruct main symbol table.  */
 
     hv = defstash;