summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-08-09 20:53:25 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-08-09 20:53:25 +0000
commit1ece73fc2b6848012f02f3e94905d1f27cfc465b (patch)
treee4debf9c6ab1d6af29035ddee71af20d7edf02f8
parent901ed14a13b66bc4a66e6f3dddc9f61d4eba0447 (diff)
install-tl, win32: write before-and-after searchpaths to logfile
git-svn-id: svn://tug.org/texlive/trunk@10211 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/install-tl16
1 files changed, 14 insertions, 2 deletions
diff --git a/Master/install-tl b/Master/install-tl
index a5f4a007a03..cedfcd39e4e 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -4,7 +4,7 @@
# Copyright 2007, 2008 Reinhard Kotucha, Norbert Preining
# This file is licensed under the GNU General Public License version 2
# or any later version.
-#
+#
# Be careful when changing wording: Every normal informational message
# output here must be recognized by the long grep in tl-update-tlnet.
@@ -228,7 +228,7 @@ if ($opt_profile) {
}
if ($opt_nonadmin and win32()) {
- non_admin();
+ non_admin();
}
# the TLPDB instances we will use. $tlpdb is for the one from the installation
@@ -482,7 +482,19 @@ sub do_installation {
do_install_packages();
}
if (win32()) {
+ my $path = TeXLive::TLWinGoo::get_system_env() -> {'/Path'};
+ $path =~ s/[\s\x00]+$//;
+ log("Old system path: $path\n");
+ $path = TeXLive::TLWinGoo::get_user_env() -> {'/Path'};
+ $path =~ s/[\s\x00]+$//;
+ log("Old user path: $path\n");
add_texbindir_to_path($vars{'TEXDIR'}.'/bin/win32');
+ $path = TeXLive::TLWinGoo::get_system_env() -> {'/Path'};
+ $path =~ s/[\s\x00]+$//;
+ log("New system path: $path\n");
+ $path = TeXLive::TLWinGoo::get_user_env() -> {'/Path'};
+ $path =~ s/[\s\x00]+$//;
+ log("New user path: $path\n");
# setenv_reg('TEXMFSYSVAR', $vars{'TEXMFSYSVAR'}) if $vars{'from_dvd'};
setenv_reg('TEXMFCNF', $vars{'TEXMFSYSVAR'}.'/web2c') if $vars{'from_dvd'};
broadcast_env();