diff options
| author | Norbert Preining <preining@logic.at> | 2009-01-26 00:20:13 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-01-26 00:20:13 +0000 |
| commit | b00368f585705d5d74ff65ed819f419b8aa3cca1 (patch) | |
| tree | 635b79b4be68f6167e13470612c726bcdcff4df1 /Master/tlpkg/TeXLive | |
| parent | f825ba7a351b8b8ea77cac1352ac21e2874370f6 (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.pm | 8 | ||||
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 14 |
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 |