From: Jean-Claude Wippler <jcw@equi4.com>
Date: Mon, 6 Mar 2006 19:49:11 +0000 (+0000)
Subject: avoid write-by-default in r/w starkits
X-Git-Tag: vfs-1-4~60
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=ca439b3a7968424d6907d7b66462faf24c9474e9;p=tclvfs

avoid write-by-default in r/w starkits
---

diff --git a/ChangeLog b/ChangeLog
index d73660b..9f7451a 100644
--- 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 5cb3e8b..be44862 100644
--- 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} {