summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLWinGoo.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-10-11 16:06:56 +0000
committerNorbert Preining <preining@logic.at>2009-10-11 16:06:56 +0000
commit15e78e4210566cda0502a477ad0df742d642a814 (patch)
treeff713e0a710278c9b49811490c6cb522eb50d415 /Master/tlpkg/TeXLive/TLWinGoo.pm
parentec2688fc27fce3d9e61227b58517eebf926914aa (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/tlpkg/TeXLive/TLWinGoo.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLWinGoo.pm11
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";