Do not translate error string

git-svn-id: svn://tug.org/texlive/trunk@50312 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 6 insertions, 2 deletions

diff --git a/Master/tlpkg/installer/install-tl-gui.tcl b/Master/tlpkg/installer/install-tl-gui.tcl
index 6a408b031e7..39814a6de6e 100755
--- a/Master/tlpkg/installer/install-tl-gui.tcl
+++ b/Master/tlpkg/installer/install-tl-gui.tcl
@@ -149,7 +149,9 @@ proc maybe_print_welcome {} {
 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 {} {
 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