From ec2688fc27fce3d9e61227b58517eebf926914aa Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sun, 11 Oct 2009 15:59:29 +0000 Subject: add the path to the uninstall key of TL2009 git-svn-id: svn://tug.org/texlive/trunk@15771 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLWinGoo.pm | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLWinGoo.pm') diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm index 014564331c0..b7436971ed3 100644 --- a/Master/tlpkg/TeXLive/TLWinGoo.pm +++ b/Master/tlpkg/TeXLive/TLWinGoo.pm @@ -140,6 +140,7 @@ BEGIN { } } +use Digest::MD5; use TeXLive::TLConfig; use TeXLive::TLUtils; TeXLive::TLUtils->import( qw( mkdirhier ) ); @@ -1057,12 +1058,18 @@ sub create_uninstaller { my $tdsc = $tdscfw; $tdsc =~ s!/!\\!g; + # we use as key for the uninstallation process the TEXDIRW key + my $uninstpath = $tdwfw; + # make sure that we only have forward slashes + $uninstpath =~ s!\\!/!g; + my $dig = Digest::MD5::md5_hex($uninstpath); + my $uninst_key = $Registry -> Open((admin() ? "LMachine" : "CUser") . "/software/microsoft/windows/currentversion/", {Access => KEY_ALL_ACCESS()}); my $k = $uninst_key->CreateKey( - "uninstall/TeXLive$::TeXLive::TLConfig::ReleaseYear/"); - $k->{"/DisplayName"} = "TeX Live $::TeXLive::TLConfig::ReleaseYear"; + "uninstall/TeXLive$::TeXLive::TLConfig::ReleaseYear$dig/"); + $k->{"/DisplayName"} = "TeX Live $::TeXLive::TLConfig::ReleaseYear ($uninstpath)"; $k->{"/UninstallString"} = "\"$tdw\\tlpkg\\installer\\uninst.bat\""; $k->{'/DisplayVersion'} = $::TeXLive::TLConfig::ReleaseYear; $k->{'/URLInfoAbout'} = "http://www.tug.org/texlive"; -- cgit v1.2.3