diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-04-15 22:18:31 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-04-15 22:18:31 +0000 |
commit | 0b4a47871b0fdceacb8444a72a1fc3a7b7b9ab9b (patch) | |
tree | 2b9a66e6d8aac2d210b52b950675668993327f05 /Master/tlpkg/TeXLive/TLWinGoo.pm | |
parent | 926b206195680cfb96696ab18599280ea390248e (diff) |
tlmgr.texlua, rmdir: added some quotes for Windows case.
Windows Add/Remove Programs still dysfunctional.
git-svn-id: svn://tug.org/texlive/trunk@7432 c570f23f-e606-0410-a88d-b1316a301751
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 |