From: Vince Darley <vincentdarley@sourceforge.net>
Date: Tue, 18 Feb 2003 16:15:17 +0000 (+0000)
Subject: readonly support added
X-Git-Tag: vfs-1-3~49
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=8916358253deddcd56436fd1e38b5a555b3cd557;p=tclvfs

readonly support added
---

diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl
index 3a76d4d..471ce6b 100644
--- a/library/mk4vfs.tcl
+++ b/library/mk4vfs.tcl
@@ -117,7 +117,7 @@ namespace eval vfs::mk4 {
 	array get sb
     }
 
-    proc vfs::mk4::access {db name mode} {
+    proc access {db name mode} {
 	if {$mode & 2} {
 	    if {$::mk4vfs::v::mode($db) == "readonly"} {
 		return -code error [vfs::filesystem posixerror $::vfs::posix(EROFS)]