close zip/tar when unmounting

diff --git a/ChangeLog b/ChangeLog
index de184e2e24afd056b95af9e933ffa9a90f14025c..2d9d9ecc1aaa7507aa620644816c9bb5f6f373c8 100644 (file)
--- 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 6ac3b27d1f6b25ce7d78981292bfc7f43063c52b..2a027e6e92d1c664ad1946cfe5f7317840bd539f 100644 (file)
--- 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 9533705a594ad94f20ee8d82cb5717578e0e8865..abbf878263435000379f48fbafae131c9189b7c3 100644 (file)
--- 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
 }