before saving a tlpobj to a local tlpdb we have to remove the RELOC

prefix, or the creation of the containers breaks


git-svn-id: svn://tug.org/texlive/trunk@13648 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 15 insertions, 0 deletions

diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 9e1bd093fa7..f86195252ee 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -440,6 +440,21 @@ sub writeout_simple {
   }
 }
 
+sub cancel_reloc_prefix {
+  my $self = shift;
+  my @docfiles = $self->docfiles;
+  for (@docfiles) { s:^$RelocPrefix/:$RelocTree/:; }
+  $self->docfiles(@docfiles);
+  my @runfiles = $self->runfiles;
+  for (@runfiles) { s:^$RelocPrefix/:$RelocTree/:; }
+  $self->runfiles(@runfiles);
+  my @srcfiles = $self->srcfiles;
+  for (@srcfiles) { s:^$RelocPrefix/:$RelocTree/:; }
+  $self->srcfiles(@srcfiles);
+  # if there are bin files they have definitely NOT the
+  # texmf-dist prefix, so we cannot cancel it anyway
+}
+
 sub cancel_common_texmf_tree {
   my $self = shift;
   my @docfiles = $self->docfiles;