summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-07-10 21:40:26 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-07-10 21:40:26 +0000
commit334f50bebe36198db1bb08037ae5aa0312c84099 (patch)
tree1127126be5c65776049d675dfea453921e2ed360 /Master/tlpkg/installer/install-menu-perltk.pl
parent007ba261d1a341260d289de6814235375105a859 (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-perltk.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl7
1 files changed, 6 insertions, 1 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl
index 9a1890ca421..b238fc27981 100644
--- a/Master/tlpkg/installer/install-menu-perltk.pl
+++ b/Master/tlpkg/installer/install-menu-perltk.pl
@@ -106,7 +106,6 @@ sub setup_hooks_perltk {
update_status(join(" ",@_));
$mainwindow->update;
};
- @::warn_hook = ();
push @::warn_hook,
sub {
return unless defined $mainwindow ;
@@ -385,6 +384,12 @@ sub 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;
$::progressw->insert("end", "\n");