From 3e1d069f8ebcd45f1688396d902065f91b545b6c Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Mon, 8 Jul 2019 19:09:16 +0000 Subject: Add -nocomplain to glob to make it accept empty directories git-svn-id: svn://tug.org/texlive/trunk@51579 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tltcl/tltcl.tcl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Master/tlpkg/tltcl/tltcl.tcl') 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. -- cgit v1.2.3