remove postmortem stuff, that is now done by File::Temp::tempdir(CLEANUP =>1)

git-svn-id: svn://tug.org/texlive/trunk@11975 c570f23f-e606-0410-a88d-b1316a301751

3 files changed, 0 insertions, 24 deletions

diff --git a/Master/install-tl b/Master/install-tl
index cf92c7677f1..ae8e3e8606c 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -1371,8 +1371,6 @@ sub do_cleanup
     } else {
       print "No logfile\n";
   }
-
-  &TeXLive::TLUtils::cleanup();
 }
 
 
diff --git a/Master/tlpkg/TeXLive/TLConfig.pm b/Master/tlpkg/TeXLive/TLConfig.pm
index 97a76759b71..1a0824863e2 100644
--- a/Master/tlpkg/TeXLive/TLConfig.pm
+++ b/Master/tlpkg/TeXLive/TLConfig.pm
@@ -28,7 +28,6 @@ BEGIN {
     $WinSpecialUpdatePackagesRegexp
     @CriticalPackagesList
     @AllowedConfigOptions
-    @PostMortemRemovals
   );
   @EXPORT = @EXPORT_OK;
 }
@@ -83,8 +82,6 @@ our @AllowedConfigOptions = qw/
   autobackup
   /;
 
-our @PostMortemRemovals = ();
-
 1;
 
 
@@ -168,11 +165,6 @@ since they are too central, currently bin-texlive and texlive.infra.
 
 A list of a config options that can be set in 00texlive-installation.config.
 
-=item C<@TeXLive::TLConfig::PostMortemRemovals>
-
-A list of files and directories we try to remove after install-tl or 
-tlmgr has been terminated.
-
 =back
 
 =head1 SEE ALSO
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 0000676ff26..f5aa482b377 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -1376,7 +1376,6 @@ sub setup_programs {
     setup_unix_one('wget', "$bindir/wget/wget.$platform", "--version");
     setup_unix_one('lzmadec', "$bindir/lzma/lzmadec.$platform", "--help");
     setup_unix_one('lzma', "$bindir/lzma/lzma.$platform", "notest");
-    push @TeXLive::TLConfig::PostMortemRemovals, $tmp if defined($tmp);
   }
 
   return 1;  # success
@@ -1433,7 +1432,6 @@ sub setup_unix_one {
       copy($def, $tmp);
       my $bn = basename($def);
       $::progs{$p} = "$tmp/$bn";
-      push @TeXLive::TLConfig::PostMortemRemovals, $::progs{$p};
       chmod(0755,$::progs{$p});
       # we do not check the return value of chmod, but check whether
       # the -x bit is now set, the only thing that counts
@@ -2211,18 +2209,6 @@ sub tlmd5 {
   }
 }
 
-#
-# remove the stuff accumulated in @TeXLive::TLConfig::PostMortemRemovals
-#
-sub cleanup {
-  for my $e (@TeXLive::TLConfig::PostMortemRemovals) {
-    unlink($e) unless -d $e;
-  }
-  for my $e (@TeXLive::TLConfig::PostMortemRemovals) {
-    rmdir($e) if -d $e;
-  }
-}
-
 #############################################
 #
 # Taken from Text::ParseWords