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

diff --git a/ChangeLog b/ChangeLog
index c9d5b16c65a05f979f2d1bad83625aa3021979b1..5bd5276531eb0f5dfee6de54d0e0b017fe8953bb 100644 (file)
--- 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 202b297a1f35ea307323ced4b8f5a1fb51860c39..f0df8fd72c7ed845cba6fed50a1abbd637fdd1e7 100644 (file)
--- 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"} {