diff options
author | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2010-07-10 21:40:26 +0000 |
---|---|---|
committer | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2010-07-10 21:40:26 +0000 |
commit | 334f50bebe36198db1bb08037ae5aa0312c84099 (patch) | |
tree | 1127126be5c65776049d675dfea453921e2ed360 /Master/tlpkg/installer/install-menu-wizard.pl | |
parent | 007ba261d1a341260d289de6814235375105a859 (diff) |
Show a summary of warnings in final message of the installer.
git-svn-id: svn://tug.org/texlive/trunk@19356 c570f23f-e606-0410-a88d-b1316a301751
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"); |