summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm16
1 files changed, 16 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 877ab312a00..b867ab7b4a0 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -467,6 +467,14 @@ sub cancel_reloc_prefix {
my @srcfiles = $self->srcfiles;
for (@srcfiles) { s:^$RelocPrefix/:$RelocTree/:; }
$self->srcfiles(@srcfiles);
+ # docfiledata needs to be adapted too
+ my $data = $self->docfiledata;
+ my %newdata;
+ while (my ($k, $v) = each %$data) {
+ $k =~ s:^$RelocPrefix/:$RelocTree/:;
+ $newdata{$k} = $v;
+ }
+ $self->docfiledata(%newdata);
# if there are bin files they have definitely NOT the
# texmf-dist prefix, so we cannot cancel it anyway
}
@@ -482,6 +490,14 @@ sub cancel_common_texmf_tree {
my @srcfiles = $self->srcfiles;
for (@srcfiles) { s:^$RelocTree/:$RelocPrefix/:; }
$self->srcfiles(@srcfiles);
+ # docfiledata needs to be adapted too
+ my $data = $self->docfiledata;
+ my %newdata;
+ while (my ($k, $v) = each %$data) {
+ $k =~ s:^$RelocTree/:$RelocPrefix/:;
+ $newdata{$k} = $v;
+ }
+ $self->docfiledata(%newdata);
# if there are bin files they have definitely NOT the
# texmf-dist prefix, so we cannot cancel it anyway
}