diff options
author | Norbert Preining <preining@logic.at> | 2008-07-10 12:13:45 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-07-10 12:13:45 +0000 |
commit | 3c67abb6c3cbe9b6d4d5a7f63eaf65d0e9e39cd0 (patch) | |
tree | 758fec90dd2746a8f99797c627de0946c78d273d /Master/tlpkg/installer/install-menu-text.pl | |
parent | 663d1c5eb6756a1019e897f29edf9d931272d836 (diff) |
text installer: echo welcome messages at end of installation
git-svn-id: svn://tug.org/texlive/trunk@9431 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rwxr-xr-x | Master/tlpkg/installer/install-menu-text.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index 0f30955e416..58cc88130f2 100755 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -24,6 +24,11 @@ our $MENU_QUIT = 2; my $RETURN = $MENU_CONTINUE; + +# issue welcome message on end of installation +push @::end_install_hook, sub { if (win32()) { print TeXLive::TLUtils::welcome(); } else { print TeXLive::TLUtils::welcome_paths(); } }; + + sub clear_screen { return 0 if ($::opt_no_cls); (unix)? system 'clear':system 'cls'; |