From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 14 Feb 2000 18:51:11 +0000 (+0000)
Subject: avoid warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d4777f279225b24fa563b5d349bba036eebe5439;p=p5sagit%2Fp5-mst-13.2.git

avoid warnings

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

diff --git a/perl.c b/perl.c
index f50cc20..b5fd06f 100644
--- a/perl.c
+++ b/perl.c
@@ -611,7 +611,8 @@ perl_destruct(pTHXx)
     SvFLAGS(PL_strtab) &= ~SVTYPEMASK;
     SvFLAGS(PL_strtab) |= SVt_PVHV;
 
-    SvREFCNT_dec(PL_fdpid);	/* needed in io_close() */
+    AvREAL_off(PL_fdpid);		/* no surviving entries */
+    SvREFCNT_dec(PL_fdpid);		/* needed in io_close() */
     PL_fdpid = Nullav;
 
     /* Destruct the global string table. */