summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLTREE.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2012-04-23 01:20:06 +0000
committerNorbert Preining <preining@logic.at>2012-04-23 01:20:06 +0000
commitc5259593fadd83018d605571e16c4a6a5aca18bc (patch)
treeb91121ce8f2a1fa1a9f012e0a7eca14bfd4b0756 /Master/tlpkg/TeXLive/TLTREE.pm
parentf077ac1254299f41f146399188c7f85640eaf63b (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.pm18
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));
}