diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 14 |
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 |