diff options
Diffstat (limited to 'Master/tlpkg/installer/install-menu-wizard.pl')
-rw-r--r-- | Master/tlpkg/installer/install-menu-wizard.pl | 6 |
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"); |