diff options
author | Norbert Preining <preining@logic.at> | 2013-04-13 05:32:44 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2013-04-13 05:32:44 +0000 |
commit | 776874e7779ee459aecd4df8d2eddb68f492f17e (patch) | |
tree | 3365e588639069ebd6feab2ac8767ad53e4a1e33 /Master/tlpkg/TeXLive/TLPOBJ.pm | |
parent | bdcdba5ebfbf898456bac0a46f10458b602673b5 (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.pm | 15 |
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; |