diff options
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 5 |
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"); |