summaryrefslogtreecommitdiff
path: root/Master/install-tl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/install-tl')
-rwxr-xr-xMaster/install-tl28
1 files changed, 4 insertions, 24 deletions
diff --git a/Master/install-tl b/Master/install-tl
index b459f63a8c0..2ede35a0e3b 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -791,30 +791,10 @@ sub do_tlpdb_postactions {
sub do_path_adjustments {
info ("running path adjustment actions\n");
if (win32()) {
- update_assocs();
-
- 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'};
- if ($path) {
- $path =~ s/[\s\x00]+$//;
- log("Old user path: $path\n");
- } else {
- log("Old user path: none\n");
- }
- my $mode = $vars{'option_w32_multi_user'} ? 'system' : 'user';
- adjust_reg_path_for_texlive('add', $vars{'TEXDIR'}.'/bin/win32', $mode);
- $path = TeXLive::TLWinGoo::get_system_env() -> {'/Path'};
- $path =~ s/[\s\x00]+$//;
- log("New system path: $path\n");
- $path = TeXLive::TLWinGoo::get_user_env() -> {'/Path'};
- if ($path) {
- $path =~ s/[\s\x00]+$//;
- log("New user path: $path\n");
- } else {
- log("New user path: none\n");
- }
+ TeXLive::TLUtils::w32_add_to_path($vars{'TEXDIR'}.'/bin/win32',
+ $vars{'option_w32_multi_user'});
+ #
+ # from_dvd stuff
# setenv_reg('TEXMFSYSVAR', $vars{'TEXMFSYSVAR'}) if $vars{'from_dvd'};
setenv_reg('TEXMFCNF', $vars{'TEXMFSYSVAR'}.'/web2c') if $vars{'from_dvd'};
broadcast_env();