summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-05-07 10:45:03 +0000
committerNorbert Preining <preining@logic.at>2009-05-07 10:45:03 +0000
commit9f4b5874cd718916808a10829bca31744e050265 (patch)
tree7a567a55e3c506653ba33cdc2f2057c136f16bdf
parent56bc5832bf57ada7cfa7a92d2fd80e91f36a48e8 (diff)
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
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm7
1 files changed, 7 insertions, 0 deletions
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 {