From: Vince Darley <vincentdarley@sourceforge.net>
Date: Fri, 21 Feb 2003 17:00:53 +0000 (+0000)
Subject: added catch
X-Git-Tag: vfs-1-3~35
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=2271eb027cafd78c02aabe03c51880bf94b4d7d5;p=tclvfs

added catch
---

diff --git a/ChangeLog b/ChangeLog
index b6ae013..f4e3e1a 100644
--- 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 b792cee..cd08790 100644
--- 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,*