From: Andreas Kupries Date: Thu, 20 Feb 2003 23:07:09 +0000 (+0000) Subject: * library/mk4vfs.tcl: Switching to canceling the stored after id X-Git-Tag: vfs-1-3~40 X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=132bc334369a397f473e1495eb1515ac2f80a32d;p=tclvfs * 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 6e567ad..29ebe79 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +2003-02-20 Andreas Kupries + + * 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 * generic/vfs.c: added new debugging feature 'vfs::filesystem diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl index c4f1fb0..52092b7 100644 --- 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,*