* library/mk4vfs.tcl: Switching to canceling the stored after id

	  of the periodic commit in _unmount instead of canceling by
	  script. The scripts in '_umount' and 'periodicCommit' were
	  different, causing the cancel to fail, and thus an eternal
	  commit, failing after the close; hanging the system.

diff --git a/ChangeLog b/ChangeLog
index 6e567adf25e5dff4cf04a40d52fbf619784a58cb..29ebe793d12d1b04b80329b33b2a7cf0d5040dca 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2003-02-20  Andreas Kupries  <andreask@activestate.com>
+
+       * library/mk4vfs.tcl: Switching to canceling the stored after id
+         of the periodic commit in _unmount instead of canceling by
+         script. The scripts in '_umount' and 'periodicCommit' were
+         different, causing the cancel to fail, and thus an eternal
+         commit, failing after the close; hanging the system.
+
 2003-02-20  Vince Darley <vincentdarley@sourceforge.net>
 
        * generic/vfs.c: added new debugging feature 'vfs::filesystem

diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl
index c4f1fb051f8c8b250831121fe100ed3229e94dcf..52092b7a90375f1db1173249f284a8a2083307a0 100644 (file)
--- a/library/mk4vfs.tcl
+++ b/library/mk4vfs.tcl
@@ -361,7 +361,7 @@ namespace eval mk4vfs {
     }
 
     proc _umount {db args} {
-       after cancel [list mk4vfs::periodicCommit $db]
+       after cancel $v::timer($db)
        array unset v::mode $db
        array unset v::timer $db
        array unset v::cache $db,*