diff options
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 7 |
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 { |