From 2271eb027cafd78c02aabe03c51880bf94b4d7d5 Mon Sep 17 00:00:00 2001
From: Vince Darley <vincentdarley@sourceforge.net>
Date: Fri, 21 Feb 2003 17:00:53 +0000
Subject: [PATCH] added catch

---
 ChangeLog          | 2 ++
 library/mk4vfs.tcl | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

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,*
-- 
2.23.0