diff options
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 |