summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2013-04-13 05:32:44 +0000
committerNorbert Preining <preining@logic.at>2013-04-13 05:32:44 +0000
commit776874e7779ee459aecd4df8d2eddb68f492f17e (patch)
tree3365e588639069ebd6feab2ac8767ad53e4a1e33 /Master/tlpkg/TeXLive/TLPOBJ.pm
parentbdcdba5ebfbf898456bac0a46f10458b602673b5 (diff)
user mode for tlmgr
support a user mode for tlmgr that allows installation of packages into user trees. git-svn-id: svn://tug.org/texlive/trunk@29883 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm15
1 files changed, 15 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 3d8d695a82c..c49214ff194 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -401,6 +401,21 @@ sub writeout_simple {
sub cancel_reloc_prefix {
my $self = shift;
my @docfiles = $self->docfiles;
+ for (@docfiles) { s:^$RelocPrefix/::; }
+ $self->docfiles(@docfiles);
+ my @runfiles = $self->runfiles;
+ for (@runfiles) { s:^$RelocPrefix/::; }
+ $self->runfiles(@runfiles);
+ my @srcfiles = $self->srcfiles;
+ for (@srcfiles) { s:^$RelocPrefix/::; }
+ $self->srcfiles(@srcfiles);
+ # if there are bin files they have definitely NOT the
+ # texmf-dist prefix, so we cannot cancel it anyway
+}
+
+sub replace_reloc_prefix {
+ my $self = shift;
+ my @docfiles = $self->docfiles;
for (@docfiles) { s:^$RelocPrefix/:$RelocTree/:; }
$self->docfiles(@docfiles);
my @runfiles = $self->runfiles;