From 00802b3bff060695c20d9c6d9c94028bd0fde906 Mon Sep 17 00:00:00 2001 From: Vince Darley Date: Thu, 16 Jan 2003 23:01:55 +0000 Subject: [PATCH] close zip/tar when unmounting --- ChangeLog | 5 +++++ library/tarvfs.tcl | 1 + library/zipvfs.tcl | 1 + 3 files changed, 7 insertions(+) diff --git a/ChangeLog b/ChangeLog index de184e2..2d9d9ec 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2003-01-16 Vince Darley + * library/tarvfs.tcl: + * library/zipvfs.tcl: ::close .zip or .tar file when unmounting + the filesystem. + 2003-01-14 Vince Darley * 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 } -- 2.23.0