summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLWinGoo.pm
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-04-15 22:18:31 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-04-15 22:18:31 +0000
commit0b4a47871b0fdceacb8444a72a1fc3a7b7b9ab9b (patch)
tree2b9a66e6d8aac2d210b52b950675668993327f05 /Master/tlpkg/TeXLive/TLWinGoo.pm
parent926b206195680cfb96696ab18599280ea390248e (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.pm20
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