avoid write-by-default in r/w starkits

diff --git a/ChangeLog b/ChangeLog
index d73660b0cc24b689cd9efc50ac7074056748615c..9f7451af16ce0c84cf97b88e8ee346e4980ac6c8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-27  Jean-Claude Wippler  <jcw@equi4.com>
+
+       * library/mkclvfs.tcl: Small optimization so a writable starkit
+       does not cause a real commit if no changes at all were made.
+
 2006-01-25  Jeff Hobbs  <jeffh@ActiveState.com>
 
        * configure, configure.in: update to TEA 3.5

diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl
index 5cb3e8b1d4078c2ce6cc58fcfea55ffabd698568..be44862b59d163d7aceccd33606b984711a0f4c6 100644 (file)
--- a/library/mk4vfs.tcl
+++ b/library/mk4vfs.tcl
@@ -331,11 +331,8 @@ namespace eval mk4vfs {
                {name:S parent:I {files {name:S size:I date:I contents:M}}}
 
        if { [mk::view size $db.dirs] == 0 } {
-           mk::row append $db.dirs name <root> parent 0
+           mk::row append $db.dirs name <root> parent -1
        }
-
-       # 2001-12-13: use parent -1 for root level!
-       mk::set $db.dirs!0 parent -1
     }
 
     proc _mount {{file ""} args} {