diff options
| -rw-r--r-- | generic/tclZipfs.c | 5 |
1 files changed, 4 insertions, 1 deletions
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; } /* |