diff options
| author | Piotr Strzelczyk <piotr@eps.gda.pl> | 2009-06-30 19:11:40 +0000 |
|---|---|---|
| committer | Piotr Strzelczyk <piotr@eps.gda.pl> | 2009-06-30 19:11:40 +0000 |
| commit | 8240da014fb3e032314d313048b6c9d34a8df665 (patch) | |
| tree | 720cd57554f26f04a9aede13d0d5dae6d356112b /Master/texmf/scripts | |
| parent | 8a8b0da40cbac456c5142aa02d85f4fe3f761de7 (diff) | |
changed win32 path adjustment; set up perl for uninstaller
git-svn-id: svn://tug.org/texlive/trunk@14029 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf/scripts')
| -rw-r--r-- | Master/texmf/scripts/texlive/uninstall-win32.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/Master/texmf/scripts/texlive/uninstall-win32.pl b/Master/texmf/scripts/texlive/uninstall-win32.pl index ed810a0157e..01b7a85a4b5 100644 --- a/Master/texmf/scripts/texlive/uninstall-win32.pl +++ b/Master/texmf/scripts/texlive/uninstall-win32.pl @@ -58,11 +58,12 @@ sub doit { } my $menupath = &TeXLive::TLWinGoo::menu_path(); $menupath =~ s!/!\\!g; - `rmdir /s /q "$menupath\\$TeXLive::TLConfig::WindowsMainMenuName" 2>nul`; - remove_texbindirs_from_path(); - unsetenv_reg("TEXBINDIR"); + `rmdir /q "$menupath\\$TeXLive::TLConfig::WindowsMainMenuName" 2>nul`; + my $mode = ($localtlpdb->option_w32_multi_user) ? 'system' : 'user'; + adjust_reg_path_for_texlive('remove', "$Master/bin/win32", $mode); + # unsetenv_reg("TEXBINDIR"); # from_dvd case: - unsetenv_reg("TEXMFSYSVAR"); + # unsetenv_reg("TEXMFSYSVAR"); unsetenv_reg("TEXMFCNF"); unregister_uninstaller(); exit if is_vista(); |