perlio.c: nobody was freeing PL_perlio_fd_refcnt, now PerlIO_cleanup() is

Message-Id: <20060528151535.BEA3E6D08C@seth.hut.fi>

p4raw-id: //depot/perl@28322

diff --git a/perlio.c b/perlio.c
index 2f8820e..a5dc32e 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -2367,6 +2367,8 @@ PerlIO_cleanup(pTHX)
        PerlIO_list_free(aTHX_ PL_def_layerlist);
        PL_def_layerlist = NULL;
     }
+
+    Safefree(PL_perlio_fd_refcnt);
 }