summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorChip Salzenberg <chip@atlantic.net>1996-12-31 09:52:01 +1200
committerChip Salzenberg <chip@atlantic.net>1997-01-01 08:59:00 +1200
commit5618dfe8ec87ebafaf94fe40d18f7c2c4cdd1518 (patch)
treee2c1300c8c25ea9b10d1ea35897ccc3319813733 /perl.c
parent0c8c7a0553bc4fb5d18712a0ed968981d85f1767 (diff)
downloadperl-5618dfe8ec87ebafaf94fe40d18f7c2c4cdd1518.tar.gz
Fix core dump on perl_construct()/perl_destruct() loop
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c5
1 files changed, 5 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index aa6a1a4d8b..9b3a5066c3 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;