summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2019-07-08 19:09:16 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2019-07-08 19:09:16 +0000
commit3e1d069f8ebcd45f1688396d902065f91b545b6c (patch)
treea2b35715876561d0e76498a962f94549c87e0465 /Master/tlpkg/tltcl
parentd3c9cbd07ebfcf9a89e94f02b80035455070785b (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/tltcl')
-rw-r--r--Master/tlpkg/tltcl/tltcl.tcl7
1 files changed, 4 insertions, 3 deletions
diff --git a/Master/tlpkg/tltcl/tltcl.tcl b/Master/tlpkg/tltcl/tltcl.tcl
index db0157a6d84..06e6710a0b2 100644
--- a/Master/tlpkg/tltcl/tltcl.tcl
+++ b/Master/tlpkg/tltcl/tltcl.tcl
@@ -180,7 +180,8 @@ proc normalize_argv {} {
set s [lindex $::argv $i]
if {[string range $s 0 1] eq "--"} {
set s [string range $s 1 end]
- set ::argv [lreplace $::argv $i $i $s]
+ #set ::argv [lreplace $::argv $i $i $s]
+ lset ::argv $i $s
}
set j [string first "=" $s]
if {$j > 0} {
@@ -257,7 +258,7 @@ proc load_translations {} {
set maybe ""
set ::lang [string tolower $::lang]
set tdir [file join $::instroot "tlpkg" "translations"]
- foreach f [glob -directory $tdir *.po] {
+ foreach f [glob -nocomplain -directory $tdir *.po] {
set ln_f [string tolower [string range [file tail $f] 0 end-3]]
if {$ln_f eq $::lang} {
set messcat $f
@@ -530,7 +531,7 @@ proc native_slashify {s} {
if {$::tcl_platform(platform) eq "unix"} {
- # Based on the tcl/tk widget demo.
+ # Based on the directory browser from the tcl/tk widget demo.
# Also for MacOS, because we want to see /usr.
# For windows, the native browser widget is better.