summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-06-02 11:27:55 +0000
committerNorbert Preining <preining@logic.at>2009-06-02 11:27:55 +0000
commitae2b59f49626335b321392d485495ffaf292a956 (patch)
tree55b934a23f50074afbc05f394753dcf9c0c04792 /Master/tlpkg/TeXLive/TLPOBJ.pm
parent623e43d956decd9e091d8b8b994c7b267f3ae98c (diff)
write a relocated .tlpobj file into the container, and reactivate the
file checking in check-tlnet-consistency git-svn-id: svn://tug.org/texlive/trunk@13575 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index eb8ef4cdea2..b192442f415 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -530,7 +530,13 @@ sub make_container {
}
open(TMP,">$tlpobjdir/$self->{'name'}.tlpobj")
|| die "$0: create($tlpobjdir/$self->{'name'}.tlpobj) failed: $!";
- $self->writeout(\*TMP);
+ # when we do relative we have to cancel the prefix before writing out
+ my $selfcopy = $self->copy;
+ if ($relative) {
+ $selfcopy->cancel_common_texmf_tree;
+ $selfcopy->relocated($relative);
+ }
+ $selfcopy->writeout(\*TMP);
close(TMP);
push(@files, "$tlpobjdir/$self->{'name'}.tlpobj");
$tarname = "$containername.tar";