From 5bceb73659668852605748fef49ce2eac65bc951 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Sun, 10 Mar 2019 15:17:13 +0000 Subject: Do not translate error string git-svn-id: svn://tug.org/texlive/trunk@50312 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/installer/install-tl-gui.tcl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg') 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 -- cgit v1.2.3