texlive[49094] Master/tlpkg/TeXLive/tltcl.tcl: tltcl.tcl: fixing a

[commits+siepo at tug.org]

Revision: 49094
          http://tug.org/svn/texlive?view=revision&revision=49094
Author:   siepo
Date:     2018-11-06 22:31:03 +0100 (Tue, 06 Nov 2018)
Log Message:
-----------
tltcl.tcl: fixing a bugfix

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/tltcl.tcl

Modified: trunk/Master/tlpkg/TeXLive/tltcl.tcl
===================================================================
--- trunk/Master/tlpkg/TeXLive/tltcl.tcl	2018-11-06 20:50:18 UTC (rev 49093)
+++ trunk/Master/tlpkg/TeXLive/tltcl.tcl	2018-11-06 21:31:03 UTC (rev 49094)
@@ -94,13 +94,15 @@
       }
       if [catch {open [file join $d "tlmgr" "config"] r} fid] continue
       while 1 {
+        if [chan eof $fid] {
+          break
+        }
         if [catch {chan gets $fid} l] break
         if {[regexp {^\s*gui-lang\s*=\s*(\S+)$} $l m ::lang]} {
-          chan close $fid
           break
         }
-        if [chan eof $fid] break
       }
+      chan close $fid
       if {[info exists ::lang] && $::lang ne ""} break
     }
   }
@@ -144,6 +146,7 @@
       set msgid ""
       set msgstr ""
       while 1 {
+        if [chan eof $fid] break
         if [catch {chan gets $fid} l] break
         if [regexp {^\s*#} $l] continue
         if [regexp {^\s*$} $l] {
@@ -191,7 +194,6 @@
           set inmsgstr 1
           set inmsgid 0
         }
-        if [chan eof $fid] break
       }
       chan close $fid
     }