From: Jean-Claude Wippler <jcw@equi4.com>
Date: Thu, 20 Jan 2005 22:35:26 +0000 (+0000)
Subject: minor mk4vfs cleanup
X-Git-Tag: vfs-1-4~78
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=2503afd828a26a5ce795825e67ef9bb47541be92;p=tclvfs

minor mk4vfs cleanup
---

diff --git a/ChangeLog b/ChangeLog
index 462d44d..bfaab42 100644
--- 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 eb9c555..3c12f65 100644
--- 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} {