summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
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
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')
-rw-r--r--Master/tlpkg/TeXLive/TLPSRC.pm6
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm18
2 files changed, 11 insertions, 13 deletions
diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm
index bab1db1a1bc..9d2db75fc6b 100644
--- a/Master/tlpkg/TeXLive/TLPSRC.pm
+++ b/Master/tlpkg/TeXLive/TLPSRC.pm
@@ -379,7 +379,7 @@ sub make_tlpobj {
# to match the pattern
foreach my $arch (@todoarchs) {
# get only those files matching the pattern
- my @archfiles = $tltree->get_matching_files('bin',$finalp, $arch);
+ my @archfiles = $tltree->get_matching_files('bin',$finalp, $pkgname, $arch);
if (!@archfiles) {
if (($arch ne "win32") || defined($::tlpsrc_pattern_warn_win)) {
tlwarn("$self->{name} ($arch): no hit on binpattern $finalp\n");
@@ -416,7 +416,7 @@ sub make_tlpobj {
# to match the pattern
foreach my $arch (@todoarchs) {
# get only those files matching the pattern
- my @archfiles = $tltree->get_matching_files('bin',$finalp, $arch);
+ my @archfiles = $tltree->get_matching_files('bin', $finalp, $pkgname, $arch);
if (!@archfiles) {
if (($arch ne "win32") || defined($::tlpsrc_pattern_warn_win)) {
tlwarn("$self->{name} ($arch): no hit on negative binpattern $finalp\n")
@@ -440,7 +440,7 @@ sub _do_normal_pattern {
$is_default_pattern = 1;
$p =~ s/^\*//;
}
- my @matchfiles = $tltree->get_matching_files($type,$p);
+ my @matchfiles = $tltree->get_matching_files($type, $p, $self->{'name'});
if (!$is_default_pattern && !@matchfiles
&& ($p !~ m,^f ignore,) && ($p !~ m,^d tlpkg/backups,)) {
tlwarn("$self->{name}: no hit for pattern $p\n");
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));
}