summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm14
1 files changed, 0 insertions, 14 deletions
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