changed win32 path adjustment; set up perl for uninstaller

git-svn-id: svn://tug.org/texlive/trunk@14029 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 3 insertions, 3 deletions

diff --git a/Master/install-tl b/Master/install-tl
index 689d93353fe..de7daf156d4 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -72,8 +72,7 @@ if (win32) {
     &get_user_path
     &setenv_reg
     &unsetenv_reg
-    &add_texbindir_to_path
-    &remove_texbindirs_from_path
+    &adjust_reg_path_for_texlive
     &register_extension
     &unregister_extension
     &register_file_type
@@ -804,7 +803,8 @@ sub do_path_adjustments {
     } else {
       log("Old user path: none\n");
     }
-    add_texbindir_to_path($vars{'TEXDIR'}.'/bin/win32');
+    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");