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

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";