diff options
| author | Norbert Preining <preining@logic.at> | 2009-06-03 16:44:09 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-06-03 16:44:09 +0000 |
| commit | 796aad218021e95076bb9389ffe8f0ca9cf8c8d9 (patch) | |
| tree | 8dc162540b5ad0c4daa0634dda8108c0500424a1 /Master | |
| parent | d81a0b0bf1379d5c4d1abc212385f743a01a55bb (diff) | |
install-tl: issue welcome message
install-tl: select the right packages after renaming to be installed on
windows (tlperl, tlgs)
git-svn-id: svn://tug.org/texlive/trunk@13609 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
| -rwxr-xr-x | Master/install-tl | 15 | ||||
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 6 |
2 files changed, 14 insertions, 7 deletions
diff --git a/Master/install-tl b/Master/install-tl index 0f13474b3b8..22a9bed3482 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -540,6 +540,11 @@ sub do_installation { } $localtlpdb->save unless $vars{'from_dvd'}; do_postinst_stuff(); + if (win32()) { + print welcome(); + } else { + print welcome_paths(); + } } # do_postinst_stuff has to fix up the texmf tree and install some missing @@ -992,13 +997,13 @@ sub calc_depends { } # if programs for arch=win32 are installed we also have to install - # bin-tlperl.win32 which provides the "hidden" perl that will be used + # tlperl.win32 which provides the "hidden" perl that will be used # to run all the perl scripts. - # Furthermore we install bin-tlgs.win32 and bin-tlpsv.win32, too + # Furthermore we install tlgs.win32 and tlpsv.win32, too if (grep(/^win32$/,@archs)) { - $install{"bin-tlperl.win32"} = 1; - $install{"bin-tlgs.win32"} = 1; - $install{"bin-tlpsv.win32"} = 1; + $install{"tlperl.win32"} = 1; + $install{"tlgs.win32"} = 1; + $install{"tlpsv.win32"} = 1; } # loop over all the packages until it is getting stable diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 7e2452fcdd0..9646e561c7d 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -2426,8 +2426,10 @@ Return the welcome message. sub welcome { my $welcome=<<"EOF"; - See ./index.html for links to documentation. The TeX Live web site - (http://tug.org/texlive/) contains any updates and corrections. + See + $::vars{'TEXDIR'}/index.html + for links to documentation. The TeX Live web site (http://tug.org/texlive/) + contains any updates and corrections. TeX Live is a joint project of the TeX user groups around the world; please consider supporting it by joining the group best for you. The |