avoid warnings

p4raw-id: //depot/perl@5085

diff --git a/perl.c b/perl.c
index f50cc20..b5fd06f 100644 (file)
--- 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. */