diff options
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLWinGoo.pm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm index b7fe88f0831..e4d5fa5c0b4 100644 --- a/Master/tlpkg/TeXLive/TLWinGoo.pm +++ b/Master/tlpkg/TeXLive/TLWinGoo.pm @@ -894,15 +894,13 @@ Removes TeXLive from Add/Remove Programs. sub unregister_uninstaller { my $regkey_uninst; - print "trying HKCU uninstaller entry\n"; $regkey_uninst = $Registry->Open( - "CUser/software/microsoft/windows/uninstall/", + "CUser/software/microsoft/windows/currentversion/uninstall/", {Access => KEY_ALL_ACCESS()}); reg_delete_recurse($regkey_uninst, 'texlive') if $regkey_uninst; return unless admin(); - print "trying HKLM uninstaller entry\n"; $regkey_uninst = $Registry->Open( - "LMachine/software/microsoft/windows/uninstall/", + "LMachine/software/microsoft/windows/currentversion/uninstall/", {Access => KEY_ALL_ACCESS()}); reg_delete_recurse($regkey_uninst, 'texlive') if $regkey_uninst; } |