diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-08-12 19:50:45 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-08-12 19:50:45 +0000 |
commit | e158d6a4d0cc6bd7cbc32dd34db4f5ab109cf75d (patch) | |
tree | f831409065715e667eb08826cd42299323a36153 /Master | |
parent | cf5017ed3969b6e560d09c8372581f6ea82fa6dd (diff) |
install-tl, Windows: now logs empty user path correctly
git-svn-id: svn://tug.org/texlive/trunk@10285 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/install-tl | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/Master/install-tl b/Master/install-tl index cedfcd39e4e..a82bdfb9b60 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -486,15 +486,23 @@ sub do_installation { $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"); + if ($path) { + $path =~ s/[\s\x00]+$//; + log("Old user path: $path\n"); + } else { + log("Old user path: none\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"); + if ($path) { + $path =~ s/[\s\x00]+$//; + log("New user path: $path\n"); + } else { + log("New user path: none\n"); + } # setenv_reg('TEXMFSYSVAR', $vars{'TEXMFSYSVAR'}) if $vars{'from_dvd'}; setenv_reg('TEXMFCNF', $vars{'TEXMFSYSVAR'}.'/web2c') if $vars{'from_dvd'}; broadcast_env(); |