summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPSRC.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/TLPSRC.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/TLPSRC.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPSRC.pm6
1 files changed, 3 insertions, 3 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");