diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLWinGoo.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLWinGoo.pm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm index ee66076f315..598e4df0e5c 100644 --- a/Master/tlpkg/TeXLive/TLWinGoo.pm +++ b/Master/tlpkg/TeXLive/TLWinGoo.pm @@ -842,16 +842,16 @@ the uninstaller script. =cut sub register_uninstaller { -# my $uninst_key = $Registry -> Open((admin() ? "LMachine" : "CUser") . -# "/software/microsoft/windows/currentversion/uninstall/", -# {Access => KEY_ALL_ACCESS()}); -# my $k = $uninst_key->CreateKey("TeXLive/"); -# my $td = ($vars{'TEXDIR'}) =~ s!/!\\!g; -# $k->{"/DisplayName"} = "TeXLive ".$::texlive_release; -# $k->{"/UninstallString"} = -# "\"$td\\texmf\\scripts\\texlive\\uninstall-tl.bat\" & del /q /s \"$td*.*\""; -# $k->{'/DisplayVersion'} = $::texlive_release; -# $k->{'/URLInfoAbout'} = "http://www.tug.org/texlive"; + my $uninst_key = $Registry -> Open((admin() ? "LMachine" : "CUser") . + "/software/microsoft/windows/currentversion/uninstall/", + {Access => KEY_ALL_ACCESS()}); + my $k = $uninst_key->CreateKey("TeXLive/"); + my $td = ($vars{'TEXDIR'}) =~ s!/!\\!g; + $k->{"/DisplayName"} = "TeXLive ".$::texlive_release; + $k->{"/UninstallString"} = + "\"$td\\texmf\\scripts\\texlive\\tlmgr\" uninstall & del /q /s \"$td*.*\""; + $k->{'/DisplayVersion'} = $::texlive_release; + $k->{'/URLInfoAbout'} = "http://www.tug.org/texlive"; } =pod |