From: Vince Darley <vincentdarley@sourceforge.net>
Date: Wed, 14 May 2003 21:00:31 +0000 (+0000)
Subject: mk4vfs file attributes fix
X-Git-Tag: vfs-1-3~21
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=f21910ec560f0de7331e5dcc14f751228bbbb597;p=tclvfs

mk4vfs file attributes fix
---

diff --git a/ChangeLog b/ChangeLog
index 0d21a78..9ce4b45 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 2003-05-14  Vince Darley <vincentdarley@sourceforge.net>
 
 	* library/vfsUtils.tcl: fix to package names
+	* library/mk4vfs.tcl: fix to 'file attributes' implementation
 	
 2003-04-29  Vince Darley <vincentdarley@sourceforge.net>
 
diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl
index e069f89..04473a1 100644
--- a/library/mk4vfs.tcl
+++ b/library/mk4vfs.tcl
@@ -288,7 +288,7 @@ namespace eval vfs::mk4 {
 	    }
 	    2 {
 		# set value
-		if {$::mk4vfs::mode($db) == "readonly"} {
+		if {$::mk4vfs::v::mode($db) == "readonly"} {
 		    vfs::filesystem posixerror $::vfs::posix(EROFS)
 		}
 		set index [lindex $args 0]