From 63de2021e9e06d392d3a70d74ebee8837ae9b3d9 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 7 Jan 2008 07:50:43 +0000 Subject: 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 --- Master/tlpkg/TeXLive/TLTREE.pm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'Master/tlpkg/TeXLive/TLTREE.pm') 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) { -- cgit v1.2.3