summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLTREE.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-07 07:50:43 +0000
committerNorbert Preining <preining@logic.at>2008-01-07 07:50:43 +0000
commit63de2021e9e06d392d3a70d74ebee8837ae9b3d9 (patch)
tree5777d3d7d22e66c2101dfae324da085ca52b5e13 /Master/tlpkg/TeXLive/TLTREE.pm
parent32af3f298073d8244aa74a87b2ff1ce98cb0d940 (diff)
new pattern language extension: binpatterns can have arch specifier after
the pattern specifier, like in binpattern f/win32 tlpkg/bin/perl.exe (that couldn't be dealt with before since the string win32 doesn't show up in the pattern somewhere) git-svn-id: svn://tug.org/texlive/trunk@6070 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm8
1 files changed, 8 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm
index 8b2e1a02d49..d3742cfe981 100644
--- a/Master/tlpkg/TeXLive/TLTREE.pm
+++ b/Master/tlpkg/TeXLive/TLTREE.pm
@@ -175,6 +175,14 @@ sub size_of {
sub get_matching_files {
my ($self, $type, $p) = @_;
if ($type eq "bin") {
+ # binpatterns can have an additions specifier after the prefix: /ARCH
+ # which specifies that these patterns are ONLY for the specified arch!
+ if ($p =~ m!^(\w+)/(\w+)\s+(.*)$!) {
+ printf STDERR "FOUND ARCH DEP PATTERN $p\n";
+ my @foo = $self->_get_matching_files($type,"$1 $3");
+ $returnfiles{$2} = [ @foo ];
+ return(\%returnfiles);
+ }
# we first substitute arch for ${ARCH}
my %returnfiles;
foreach $a ($self->architectures) {