From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 7 Mar 2000 23:25:46 +0000 (+0000)
Subject: CopFILEGV(&PL_compiling) must be reset properly (from Doug MacEachern)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=01724ea0117e95cb2b727cb7055bec7a17087b2c;p=p5sagit%2Fp5-mst-13.2.git

CopFILEGV(&PL_compiling) must be reset properly (from Doug MacEachern)

p4raw-id: //depot/perl@5604
---

diff --git a/perl.c b/perl.c
index 601c7be..2dbfc8e 100644
--- a/perl.c
+++ b/perl.c
@@ -591,6 +591,10 @@ perl_destruct(pTHXx)
     if (!specialWARN(PL_compiling.cop_warnings))
 	SvREFCNT_dec(PL_compiling.cop_warnings);
     PL_compiling.cop_warnings = Nullsv;
+#ifndef USE_ITHREADS
+    SvREFCNT_dec(CopFILEGV(&PL_compiling));
+    CopFILEGV_set(&PL_compiling, Nullgv);
+#endif
 
     /* Prepare to destruct main symbol table.  */
 
@@ -675,10 +679,15 @@ perl_destruct(pTHXx)
     SvREFCNT(&PL_sv_yes) = 0;
     sv_clear(&PL_sv_yes);
     SvANY(&PL_sv_yes) = NULL;
+    SvREADONLY_off(&PL_sv_yes);
 
     SvREFCNT(&PL_sv_no) = 0;
     sv_clear(&PL_sv_no);
     SvANY(&PL_sv_no) = NULL;
+    SvREADONLY_off(&PL_sv_no);
+
+    SvREFCNT(&PL_sv_undef) = 0;
+    SvREADONLY_off(&PL_sv_undef);
 
     if (PL_sv_count != 0 && ckWARN_d(WARN_INTERNAL))
 	Perl_warner(aTHX_ WARN_INTERNAL,"Scalars leaked: %ld\n", (long)PL_sv_count);