From 3c67abb6c3cbe9b6d4d5a7f63eaf65d0e9e39cd0 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 10 Jul 2008 12:13:45 +0000 Subject: text installer: echo welcome messages at end of installation git-svn-id: svn://tug.org/texlive/trunk@9431 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/installer/install-menu-text.pl | 5 +++++ 1 file changed, 5 insertions(+) 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'; -- cgit v1.2.3