This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix core dump on perl_construct()/perl_destruct() loop
authorChip Salzenberg <chip@atlantic.net>
Mon, 30 Dec 1996 21:52:01 +0000 (09:52 +1200)
committerChip Salzenberg <chip@atlantic.net>
Tue, 31 Dec 1996 20:59:00 +0000 (08:59 +1200)
perl.c

diff --git a/perl.c b/perl.c
index aa6a1a4..9b3a506 100644 (file)
--- 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;