summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm5
1 files changed, 5 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 1791cf81635..9ebc3ca86c5 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -547,8 +547,12 @@ sub make_container {
chdir($instroot);
# in the relative case we have to chdir to the respective tltree
# and put the tlpobj into the root!
+ my $removetlpkgdir = 0;
if ($relative) {
chdir("./$tltree");
+ # in the relocatable case we will probably create the tlpkg dir
+ # in texmf-dist/tlpkg and want to remove it afterwards.
+ $removetlpkgdir = 1;
# we don't need to change the $tlpobjdir because we put it in
# all cases into tlpkg/tlpobj
#$tlpobjdir = "./tlpkg/tlpobj";
@@ -690,6 +694,7 @@ sub make_container {
unlink("$tlpobjdir/$self->{'name'}.tlpobj");
unlink($tartempfile) if $tartempfile;
rmdir($tlpobjdir) if $removetlpobjdir;
+ rmdir($InfraLocation) if $removetlpkgdir;
xchdir($cwd);
debug(" done $containername, size $size, $md5\n");