fix to mk4 vfs bug with 'glob foo'

diff --git a/ChangeLog b/ChangeLog
index de4e75bc4aaf207334fd253771a6b1555a6264fb..85433810a883698bed080d4fed501e3d741ed2a4 100644 (file)
--- 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 04473a1f3486aeef79fc229984f68b12c19a9bf4..eb9c555b66bf06825643106353a2bb113e7e4373 100644 (file)
--- 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 {