summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-tl-gui.tcl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2019-03-10 15:17:13 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2019-03-10 15:17:13 +0000
commit5bceb73659668852605748fef49ce2eac65bc951 (patch)
treee551c0664662146b95e4e9b065ab6d3ffbcd0ed9 /Master/tlpkg/installer/install-tl-gui.tcl
parent77893ff48682bd56df17cf80c5dc9643edacb2a9 (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/installer/install-tl-gui.tcl')
-rwxr-xr-xMaster/tlpkg/installer/install-tl-gui.tcl8
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