diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-07-29 08:08:11 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-07-29 08:08:11 (GMT) |
| commit | a3926e812ec454d7796e303694b7e80cdf55b738 (patch) | |
| tree | 7683bbf2941055b6af1a5b9b97732a87b550ad24 /generic/tclZipfs.c | |
| parent | 46c7acb6251b5bfb6c463c3de469eb498d4e676c (diff) | |
| download | tcl-a3926e812ec454d7796e303694b7e80cdf55b738.zip tcl-a3926e812ec454d7796e303694b7e80cdf55b738.tar.gz tcl-a3926e812ec454d7796e303694b7e80cdf55b738.tar.bz2 | |
Fix [7d5f1c1308] - zipfs mkzip error on Windows dotfiles
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" |