diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-07-08 19:09:16 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-07-08 19:09:16 +0000 |
commit | 3e1d069f8ebcd45f1688396d902065f91b545b6c (patch) | |
tree | a2b35715876561d0e76498a962f94549c87e0465 /Master/tlpkg/installer/install-tl-gui.tcl | |
parent | d3c9cbd07ebfcf9a89e94f02b80035455070785b (diff) |
Add -nocomplain to glob to make it accept empty directories
git-svn-id: svn://tug.org/texlive/trunk@51579 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-tl-gui.tcl')
-rwxr-xr-x | Master/tlpkg/installer/install-tl-gui.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Master/tlpkg/installer/install-tl-gui.tcl b/Master/tlpkg/installer/install-tl-gui.tcl index 5545d31437a..007f274dbb3 100755 --- a/Master/tlpkg/installer/install-tl-gui.tcl +++ b/Master/tlpkg/installer/install-tl-gui.tcl @@ -98,7 +98,7 @@ set ::td_warned 0 proc is_nonempty {td} { if {! [file exists $td]} {return 0} - return [expr {[llength [glob -directory $td *]] > 0}] + return [expr {[llength [glob -nocomplain -directory $td *]] > 0}] } proc td_warn {td} { |