summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/install-tl16
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();