summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm8
-rwxr-xr-xMaster/tlpkg/bin/check-tlnet-consistency13
2 files changed, 13 insertions, 8 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";
diff --git a/Master/tlpkg/bin/check-tlnet-consistency b/Master/tlpkg/bin/check-tlnet-consistency
index 045253382d7..56b7f8527d2 100755
--- a/Master/tlpkg/bin/check-tlnet-consistency
+++ b/Master/tlpkg/bin/check-tlnet-consistency
@@ -196,13 +196,12 @@ sub main
print "$p\n";
}
}
-# xx every RELOC change shows up. don't understand.
-# for my $pkg (keys %filedifferrors) {
-# print "file differences in $pkg:\n";
-# for my $l (@{$filedifferrors{$pkg}}) {
-# print " $l\n";
-# }
-# }
+ for my $pkg (keys %filedifferrors) {
+ print "file differences in $pkg:\n";
+ for my $l (@{$filedifferrors{$pkg}}) {
+ print " $l\n";
+ }
+ }
}