summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-wizard.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/installer/install-menu-wizard.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-wizard.pl6
1 files changed, 5 insertions, 1 deletions
diff --git a/Master/tlpkg/installer/install-menu-wizard.pl b/Master/tlpkg/installer/install-menu-wizard.pl
index b38e52a4897..7b7a2c6836a 100644
--- a/Master/tlpkg/installer/install-menu-wizard.pl
+++ b/Master/tlpkg/installer/install-menu-wizard.pl
@@ -105,7 +105,6 @@ sub setup_hooks_wizard {
wizard_update_status(join(" ",@_));
$mw->update;
};
- @::warn_hook = ();
push @::warn_hook,
sub {
return unless defined($mw);
@@ -499,6 +498,11 @@ sub wizard_installation_window {
if (!win32()) {
$t .= "\n\n" . __("Add %s/texmf/doc/man to MANPATH.\nAdd %s/texmf/doc/info to INFOPATH.\nMost importantly, add %s/bin/%s\nto your PATH for current and future sessions.", $::vars{'TEXDIR'}, $::vars{'TEXDIR'}, $::vars{'TEXDIR'}, $::vars{'this_platform'});
}
+ if (@::WARNLINES) {
+ $t .= "\n\n" . __("There were some warnings during the installation process.\nHere is a summary of warning messages:") . "\n";
+ $t .= join('', @::WARNLINES);
+ $t =~ s/\n\z//;
+ }
$t .= "\n\n" . __('Welcome to TeX Live!');
#$t =~ s/\\n/\n/g;
my $linechar = $::progressw->index("end");