diff options
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(); |