summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-01-26 00:20:13 +0000
committerNorbert Preining <preining@logic.at>2009-01-26 00:20:13 +0000
commitb00368f585705d5d74ff65ed819f419b8aa3cca1 (patch)
tree635b79b4be68f6167e13470612c726bcdcff4df1 /Master/tlpkg/TeXLive
parentf825ba7a351b8b8ea77cac1352ac21e2874370f6 (diff)
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
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r--Master/tlpkg/TeXLive/TLConfig.pm8
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm14
2 files changed, 0 insertions, 22 deletions
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