diff options
author | Norbert Preining <preining@logic.at> | 2012-04-23 01:20:06 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2012-04-23 01:20:06 +0000 |
commit | c5259593fadd83018d605571e16c4a6a5aca18bc (patch) | |
tree | b91121ce8f2a1fa1a9f012e0a7eca14bfd4b0756 /Master/tlpkg/TeXLive/TLTREE.pm | |
parent | f077ac1254299f41f146399188c7f85640eaf63b (diff) |
expand $PKGNAME also in the tlpsrc patterns
git-svn-id: svn://tug.org/texlive/trunk@26098 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLTREE.pm | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm index c7b95c1ac4b..8300d78369b 100644 --- a/Master/tlpkg/TeXLive/TLTREE.pm +++ b/Master/tlpkg/TeXLive/TLTREE.pm @@ -203,22 +203,20 @@ sub size_of { =pod The function B<get_matching_files> takes as arguments the type of the pattern -(bin, src, doc, run), the pattern itself, and an options architecture. +(bin, src, doc, run), the pattern itself, the package name (without +.ARCH specifications), and an optional architecture. It returns a list of files matching that pattern (in the case of bin patterns for that arch). =cut sub get_matching_files { - my ($self, $type, $p, $arch) = @_; - if ($type eq "bin") { - my $ARCH = $arch; - my $newp; - eval "\$newp = \"$p\""; - return($self->_get_matching_files($type,$newp)); - } else { # non-bin pattern - return($self->_get_matching_files($type,$p)); - } + my ($self, $type, $p, $pkg, $arch) = @_; + my $ARCH = $arch; + my $PKGNAME = $pkg; + my $newp; + eval "\$newp = \"$p\""; + return($self->_get_matching_files($type,$newp)); } |