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

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

diff --git a/ChangeLog b/ChangeLog
index 8543381..26855eb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,8 @@
 2003-09-01  Vince Darley <vincentdarley@sourceforge.net>
 
 	* library/mk4vfs.tcl: fix to Bug #796782.
+	* library/zipvfs.tcl:
+	* library/tarvfs.tcl: fix to similar bug in these filesystems.
 	
 2003-07-15  Vince Darley <vincentdarley@sourceforge.net>
 
diff --git a/library/tarvfs.tcl b/library/tarvfs.tcl
index 04135c9..2132ce8 100644
--- a/library/tarvfs.tcl
+++ b/library/tarvfs.tcl
@@ -59,6 +59,7 @@ proc vfs::tar::matchindirectory {tarfd path actualpath pattern type} {
     # for the existence of a single file $path only
     set res [::tar::getdir $tarfd $path $pattern]
     if {![string length $pattern]} {
+	if {![::tar::exists $tarfd $path]} { return {} }
 	set res [list $actualpath]
 	set actualpath ""
     }
diff --git a/library/zipvfs.tcl b/library/zipvfs.tcl
index 4f3ca4e..3052521 100644
--- a/library/zipvfs.tcl
+++ b/library/zipvfs.tcl
@@ -56,6 +56,7 @@ proc vfs::zip::matchindirectory {zipfd path actualpath pattern type} {
     set res [::zip::getdir $zipfd $path $pattern]
     #::vfs::log "got $res"
     if {![string length $pattern]} {
+	if {![::zip::exists $zipfd $path]} { return {} }
 	set res [list $actualpath]
 	set actualpath ""
     }