diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-14 18:51:11 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-14 18:51:11 +0000 |
| commit | d4777f279225b24fa563b5d349bba036eebe5439 (patch) | |
| tree | de166f70c529151de82b4d353f7a20585ff9677d /perl.c | |
| parent | d33b2eba4a0e814b78ec910034b3f6943f4805ac (diff) | |
| download | perl-d4777f279225b24fa563b5d349bba036eebe5439.tar.gz | |
avoid warnings
p4raw-id: //depot/perl@5085
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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. */ |