From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 28 May 2006 18:15:35 +0000 (+0300)
Subject: perlio.c: nobody was freeing PL_perlio_fd_refcnt, now PerlIO_cleanup() is
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9720224e630cf4b56c09f47430f97710dce6c06e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);
 }