summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
authorPiotr Strzelczyk <piotr@eps.gda.pl>2009-06-30 19:11:40 +0000
committerPiotr Strzelczyk <piotr@eps.gda.pl>2009-06-30 19:11:40 +0000
commit8240da014fb3e032314d313048b6c9d34a8df665 (patch)
tree720cd57554f26f04a9aede13d0d5dae6d356112b /Master/texmf
parent8a8b0da40cbac456c5142aa02d85f4fe3f761de7 (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')
-rw-r--r--Master/texmf/scripts/texlive/uninstall-win32.pl9
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();