diff options
| author | Norbert Preining <preining@logic.at> | 2009-10-11 16:06:56 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-10-11 16:06:56 +0000 |
| commit | 15e78e4210566cda0502a477ad0df742d642a814 (patch) | |
| tree | ff713e0a710278c9b49811490c6cb522eb50d415 /Master | |
| parent | ec2688fc27fce3d9e61227b58517eebf926914aa (diff) | |
back out the last change to TLWinGoo, it is too invasive for pre-release
things. Can be done afterwards
git-svn-id: svn://tug.org/texlive/trunk@15772 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLWinGoo.pm | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm index b7436971ed3..014564331c0 100644 --- a/Master/tlpkg/TeXLive/TLWinGoo.pm +++ b/Master/tlpkg/TeXLive/TLWinGoo.pm @@ -140,7 +140,6 @@ BEGIN { } } -use Digest::MD5; use TeXLive::TLConfig; use TeXLive::TLUtils; TeXLive::TLUtils->import( qw( mkdirhier ) ); @@ -1058,18 +1057,12 @@ 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$dig/"); - $k->{"/DisplayName"} = "TeX Live $::TeXLive::TLConfig::ReleaseYear ($uninstpath)"; + "uninstall/TeXLive$::TeXLive::TLConfig::ReleaseYear/"); + $k->{"/DisplayName"} = "TeX Live $::TeXLive::TLConfig::ReleaseYear"; $k->{"/UninstallString"} = "\"$tdw\\tlpkg\\installer\\uninst.bat\""; $k->{'/DisplayVersion'} = $::TeXLive::TLConfig::ReleaseYear; $k->{'/URLInfoAbout'} = "http://www.tug.org/texlive"; |