From: Vince Darley <vincentdarley@sourceforge.net>
Date: Mon, 1 Sep 2003 15:03:56 +0000 (+0000)
Subject: fix to mk4 vfs bug with 'glob foo'
X-Git-Tag: vfs-1-3~8
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=7455adca58b81504051b6e01d2cbc9726520d9e0;p=tclvfs

fix to mk4 vfs bug with 'glob foo'
---

diff --git a/ChangeLog b/ChangeLog
index de4e75b..8543381 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-09-01  Vince Darley <vincentdarley@sourceforge.net>
+
+	* library/mk4vfs.tcl: fix to Bug #796782.
+	
 2003-07-15  Vince Darley <vincentdarley@sourceforge.net>
 
 	* tests/vfsZip.test:
diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl
index 04473a1..eb9c555 100644
--- a/library/mk4vfs.tcl
+++ b/library/mk4vfs.tcl
@@ -128,6 +128,9 @@ namespace eval vfs::mk4 {
 	set newres [list]
 	if {![string length $pattern]} {
 	    # check single file
+	    if {[catch {access $db $path 0}]} {
+		return {}
+	    }
 	    set res [list $actualpath]
 	    set actualpath ""
 	} else {