From 0f9539f83840432a6d510b8c8afe52e24a11e6b4 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Mon, 22 Apr 2019 15:15:47 +0000
Subject: Stop leaking ZipFile in MountBuffer()

---
 generic/tclZipfs.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c
index b5cf69f..c3887f0 100644
--- a/generic/tclZipfs.c
+++ b/generic/tclZipfs.c
@@ -1711,6 +1711,7 @@ TclZipfs_MountBuffer(
     int copy)
 {
     ZipFile *zf;
+    int result;
 
     ReadLock();
     if (!ZipFS.initialized) {
@@ -1772,8 +1773,10 @@ TclZipfs_MountBuffer(
     if (ZipFSFindTOC(interp, 0, zf) != TCL_OK) {
 	return TCL_ERROR;
     }
-    return ZipFSCatalogFilesystem(interp, zf, mountPoint, NULL,
+    result = ZipFSCatalogFilesystem(interp, zf, mountPoint, NULL,
 	    "Memory Buffer");
+    ckfree(zf);
+    return result;
 }
 
 /*
-- 
cgit v0.12