summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-06-03 16:44:09 +0000
committerNorbert Preining <preining@logic.at>2009-06-03 16:44:09 +0000
commit796aad218021e95076bb9389ffe8f0ca9cf8c8d9 (patch)
tree8dc162540b5ad0c4daa0634dda8108c0500424a1 /Master
parentd81a0b0bf1379d5c4d1abc212385f743a01a55bb (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-xMaster/install-tl15
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm6
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