added catch

diff --git a/ChangeLog b/ChangeLog
index b6ae0138364f3ec264f1bda27e83acd31d31dfa2..f4e3e1a37c5c718ff6301706dc2e2ac13eb5b805 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,8 @@
        * library/*.tcl: added missing 'recursive' flag to most
         .tcl 'removedirectory' implementations.
        
+       * library/mk4vfs.tcl: added catch around 'after cancel'
+       
 2003-02-21  Vince Darley <vincentdarley@sourceforge.net>
 
        * generic/vfs.c: some small cleanup

diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl
index b792cee85166e23ab24aa05ea6b868a2354f46a5..cd0879032b657597316e3e86b82e3d194ee132d5 100644 (file)
--- a/library/mk4vfs.tcl
+++ b/library/mk4vfs.tcl
@@ -361,7 +361,7 @@ namespace eval mk4vfs {
     }
 
     proc _umount {db args} {
-       after cancel $v::timer($db)
+       catch {after cancel $v::timer($db)}
        array unset v::mode $db
        array unset v::timer $db
        array unset v::cache $db,*