From: Vince Darley <vincentdarley@sourceforge.net>
Date: Thu, 16 Jan 2003 23:01:55 +0000 (+0000)
Subject: close zip/tar when unmounting
X-Git-Tag: vfs-1-2~14
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=00802b3bff060695c20d9c6d9c94028bd0fde906;p=tclvfs

close zip/tar when unmounting
---

diff --git a/ChangeLog b/ChangeLog
index de184e2..2d9d9ec 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-16  Vince Darley <vincentdarley@sourceforge.net>
+	* library/tarvfs.tcl: 
+	* library/zipvfs.tcl: ::close .zip or .tar file when unmounting
+	the filesystem.
+	
 2003-01-14  Vince Darley <vincentdarley@sourceforge.net>
 	* library/tarvfs.tcl: new 'tar' filesystem courtesy of Stefan
 	Vogel -- many thanks!  The tar vfs is currently read-only and
diff --git a/library/tarvfs.tcl b/library/tarvfs.tcl
index 6ac3b27..2a027e6 100644
--- a/library/tarvfs.tcl
+++ b/library/tarvfs.tcl
@@ -419,4 +419,5 @@ proc tar::getdir {fd path {pat *}} {
 proc tar::_close {fd} {
     variable $fd.toc
     unset $fd.toc
+    ::close $fd
 }
diff --git a/library/zipvfs.tcl b/library/zipvfs.tcl
index 9533705..abbf878 100644
--- a/library/zipvfs.tcl
+++ b/library/zipvfs.tcl
@@ -491,4 +491,5 @@ proc zip::_close {fd} {
     variable $fd.toc
     unset $fd
     unset $fd.toc
+    ::close $fd
 }