diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-03-10 15:17:13 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-03-10 15:17:13 +0000 |
commit | 5bceb73659668852605748fef49ce2eac65bc951 (patch) | |
tree | e551c0664662146b95e4e9b065ab6d3ffbcd0ed9 /Master/tlpkg | |
parent | 77893ff48682bd56df17cf80c5dc9643edacb2a9 (diff) |
Do not translate error string
git-svn-id: svn://tug.org/texlive/trunk@50312 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rwxr-xr-x | Master/tlpkg/installer/install-tl-gui.tcl | 8 |
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 |