diff options
Diffstat (limited to 'generic/tclZipfs.c')
| -rw-r--r-- | generic/tclZipfs.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index 52ff689..2eb90a5 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -6237,7 +6237,9 @@ TclZipfs_Init( "namespace eval ::tcl::zipfs {}\n" "proc ::tcl::zipfs::Find dir {\n" " set result {}\n" - " if {[catch {glob -directory $dir -nocomplain * .*} list]} {\n" + " if {[catch {\n" + " concat [glob -directory $dir -nocomplain *] [glob -directory $dir -types hidden -nocomplain *]\n" + " } list]} {\n" " return $result\n" " }\n" " foreach file $list {\n" |