texlive[50312] Master/tlpkg/installer/install-tl-gui.tcl: Do not

[commits+siepo at tug.org]

Revision: 50312
          http://tug.org/svn/texlive?view=revision&revision=50312
Author:   siepo
Date:     2019-03-10 16:17:13 +0100 (Sun, 10 Mar 2019)
Log Message:
-----------
Do not translate error string

Modified Paths:
--------------
    trunk/Master/tlpkg/installer/install-tl-gui.tcl

Modified: trunk/Master/tlpkg/installer/install-tl-gui.tcl
===================================================================
--- trunk/Master/tlpkg/installer/install-tl-gui.tcl	2019-03-10 13:50:00 UTC (rev 50311)
+++ trunk/Master/tlpkg/installer/install-tl-gui.tcl	2019-03-10 15:17:13 UTC (rev 50312)
@@ -149,7 +149,9 @@
 proc read_line {} {
   if [catch {chan gets $::inst l} len] {
     # catch [chan close $::inst]
-    err_exit [__ "Error while reading from Perl backend"]
+    err_exit "
+Error while reading from Perl back end.
+This should not have happened!"
   } elseif {$len < 0} {
     # catch [chan close $::inst]
     return [list -1 ""]
@@ -161,7 +163,9 @@
 proc read_line_no_eof {} {
   set ll [read_line]
   if {[lindex $ll 0] < 0} {
-    log_exit [__ "Unexpected closed backend"]
+    log_exit "
+Unexpected closed backend.
+This should not have happened!"
   }
   set l [lindex $ll 1]
   # TODO: test under debug mode