diff options
| author | Norbert Preining <preining@logic.at> | 2009-06-02 11:27:55 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-06-02 11:27:55 +0000 |
| commit | ae2b59f49626335b321392d485495ffaf292a956 (patch) | |
| tree | 55b934a23f50074afbc05f394753dcf9c0c04792 /Master/tlpkg/TeXLive/TLPOBJ.pm | |
| parent | 623e43d956decd9e091d8b8b994c7b267f3ae98c (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.pm | 8 |
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"; |