summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2018-11-06 13:16:52 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2018-11-06 13:16:52 +0000
commit8331d77f4583d3cd265d7b495da63da3354b3974 (patch)
tree867e53fa39355debdf1d8add3d28cbbd57d73a79 /Master/tlpkg/TeXLive
parentce56884c340c40aaf5c90d736a404208ef486943 (diff)
Fixes locale detection; tlshell searchpath
git-svn-id: svn://tug.org/texlive/trunk@49091 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r--Master/tlpkg/TeXLive/tltcl.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/tltcl.tcl b/Master/tlpkg/TeXLive/tltcl.tcl
index d0048b26d21..72b16adbb88 100644
--- a/Master/tlpkg/TeXLive/tltcl.tcl
+++ b/Master/tlpkg/TeXLive/tltcl.tcl
@@ -95,11 +95,11 @@ proc load_translations {} {
if [catch {open [file join $d "tlmgr" "config"] r} fid] continue
while 1 {
if [catch {chan gets $fid} l] break
- if [chan eof $fid] break
if {[regexp {^\s*gui-lang\s*=\s*(\S+)$} $l m ::lang]} {
chan close $fid
break
}
+ if [chan eof $fid] break
}
if {[info exists ::lang] && $::lang ne ""} break
}
@@ -145,7 +145,6 @@ proc load_translations {} {
set msgstr ""
while 1 {
if [catch {chan gets $fid} l] break
- if [chan eof $fid] break
if [regexp {^\s*#} $l] continue
if [regexp {^\s*$} $l] {
# empty line separates msgid/msgstr pairs
@@ -192,6 +191,7 @@ proc load_translations {} {
set inmsgstr 1
set inmsgid 0
}
+ if [chan eof $fid] break
}
chan close $fid
}