minor mk4vfs cleanup

diff --git a/ChangeLog b/ChangeLog
index 462d44dbf8dc6796a5bc39eedd06bc868e4d494b..bfaab42d8c520389421935bfe25085e93a49450a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2005-01-20  Jean-Claude Wippler  <jcw@equi4.com>
+
+       * library/mk4vfs.tcl: added return in periodicCommit
+
 2004-11-22  Andreas Kupries( <andreask@activestate.com>
 
        * Makefile.in (PKG_TCL_SOURCES): Added 'tkvfs.tcl' to the list of

diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl
index eb9c555b66bf06825643106353a2bb113e7e4373..3c12f6567075d1dd1df8f278e29f01ce653d5773 100644 (file)
--- a/library/mk4vfs.tcl
+++ b/library/mk4vfs.tcl
@@ -363,6 +363,7 @@ namespace eval mk4vfs {
        variable flush
        set v::timer($db) [after $flush [list ::mk4vfs::periodicCommit $db]]
        mk::file commit $db
+       return ;# 2005-01-20 avoid returning a value
     }
 
     proc _umount {db args} {