fix to various vfs bug with 'glob foo'

diff --git a/ChangeLog b/ChangeLog
index 85433810a883698bed080d4fed501e3d741ed2a4..26855eb64236bf8bd12f9377ca4aa7a7a903c931 100644 (file)
--- 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 04135c959e28485ba97231833decc317d0cfe0b3..2132ce872414a0457dc2418018a2a7d158f9b589 100644 (file)
--- 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 4f3ca4ec1787dd683644092d2b893231eddfdcc5..3052521bd3ed073fd176e9d8fd2ab5380b0fac7d 100644 (file)
--- 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 ""
     }