From b00368f585705d5d74ff65ed819f419b8aa3cca1 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 26 Jan 2009 00:20:13 +0000 Subject: 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 --- Master/install-tl | 2 -- Master/tlpkg/TeXLive/TLConfig.pm | 8 -------- Master/tlpkg/TeXLive/TLUtils.pm | 14 -------------- 3 files changed, 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 -- cgit v1.2.3