From 8916358253deddcd56436fd1e38b5a555b3cd557 Mon Sep 17 00:00:00 2001 From: Vince Darley Date: Tue, 18 Feb 2003 16:15:17 +0000 Subject: [PATCH] readonly support added --- library/mk4vfs.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)] -- 2.23.0