From 9f4b5874cd718916808a10829bca31744e050265 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 7 May 2009 10:45:03 +0000 Subject: remove $pkg.tlpobj in install_package because we recreate it from the tlpdb in install_packages. This way we should get rid also of the useless $pkg.(doc|source).tlpobj git-svn-id: svn://tug.org/texlive/branches/branch2009-dev@12976 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 8787edff366..9fae70ff4a4 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1147,6 +1147,8 @@ sub install_package { $target .= "/$TeXLive::TLConfig::RelocTree" if $reloc; my $fn = basename($what); + my $pkg = $fn; + $pkg =~ s/\.tar\.xz$//; mkdirhier("$target/temp"); my $xzfile = "$target/temp/$fn"; my $tarfile = "$target/temp/$fn"; $tarfile =~ s/\.xz$//; @@ -1225,6 +1227,11 @@ sub install_package { tlwarn("Un-tarring $tarfile did not succeed.\n"); return 0; } + # we remove the created .tlpobj it is recreated anyway in + # install_packages above in the right place. This way we also + # get rid of the $pkg.source.tlpobj which are useless + unlink ("$target/tlpkg/tlpobj/$pkg.tlpobj") + if (-r "$target/tlpkg/tlpobj/$pkg.tlpobj"); if ($what =~ m,http://|ftp://,) { # we downloaded the original .tar.lzma from the net, so we keep it } else { -- cgit v1.2.3