From: Andreas Kupries <andreas_kupries@users.sourceforge.net>
Date: Wed, 5 Feb 2003 00:28:17 +0000 (+0000)
Subject: 	* library/mk4vfs.tcl: Fixed bad vfs::mk4::Mount change.
X-Git-Tag: vfs-1-3~62
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=5ac069ae7337b5ab43eec58c62159dd9e160a502;p=tclvfs

	* library/mk4vfs.tcl: Fixed bad vfs::mk4::Mount change.
---

diff --git a/ChangeLog b/ChangeLog
index c9d5b16..5bd5276 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-02-04  Andreas Kupries  <andreask@activestate.com>
+
+	* library/mk4vfs.tcl: Fixed bad vfs::mk4::Mount change.
+
 2003-02-04  Vince Darley <vincentdarley@sourceforge.net>
 
 	* generic/vfs.c: fixed version of VfsFullyNormalizePath,
diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl
index 202b297..f0df8fd 100644
--- a/library/mk4vfs.tcl
+++ b/library/mk4vfs.tcl
@@ -46,10 +46,16 @@ namespace eval vfs::mk4 {
 	}
 	set db [eval [list ::mk4vfs::_mount $mkfile] $args]
 	::vfs::filesystem mount $local [list ::vfs::mk4::handler $db]
-	::vfs::RegisterMount $local [list ::mk4vfs::_umount $db]
+	::vfs::RegisterMount $local [list ::vfs::mk4::Unmount $db]
 	return $db
     }
 
+    proc Unmount {db local} {
+	vfs::filesystem unmount $local
+	::mk4vfs::_umount $db
+    }
+
+
     proc handler {db cmd root relative actualpath args} {
 	#puts stderr "handler: $db - $cmd - $root - $relative - $actualpath - $args"
 	if {$cmd == "matchindirectory"} {