diff options
author | Norbert Preining <preining@logic.at> | 2009-05-07 11:46:41 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-05-07 11:46:41 +0000 |
commit | 177f67a094d5b9890be9c2ee19fe5ad93ee2d56b (patch) | |
tree | f4946a6eb48a81bd64f5e601d9541e3ea7d83c94 | |
parent | 4f001567777c6055ae8dd8253b2715c813a107ce (diff) |
fix for relocatable if there are no files in a package
git-svn-id: svn://tug.org/texlive/branches/branch2009-dev@12980 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 86b097df993..a4698bc1dae 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -458,6 +458,7 @@ sub cancel_common_texmf_tree { sub common_texmf_tree { my $self = shift; my $tltree; + my $dd = 0; my @files = $self->all_files; foreach ($self->all_files) { my $tmp; @@ -468,6 +469,11 @@ sub common_texmf_tree { $tltree = $tmp; } } + # if there are no files then it is by default relocatable, so + # return the right tree + if (!@files) { + $tltree = $RelocTree; + } return $tltree; } |