diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLTREE.pm | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm index a7b0e4cd5d8..f32d6ebf478 100644 --- a/Master/tlpkg/TeXLive/TLTREE.pm +++ b/Master/tlpkg/TeXLive/TLTREE.pm @@ -176,8 +176,12 @@ sub size_of { } } +# return a per-architecture hash ref for TYPE eq "bin", +# list ref for all others. +# sub get_matching_files { my ($self, $type, $p) = @_; + if ($type eq "bin") { my %returnfiles; # binpatterns can have an additions specifier after the prefix: /ARCH @@ -188,8 +192,9 @@ sub get_matching_files { my $pr = $3; my @foo = $self->_get_matching_files($type,"$pt $pr"); $returnfiles{$aa} = [ @foo ]; - return(\%returnfiles); + return \%returnfiles; } + # we first substitute arch for ${ARCH} foreach $a ($self->architectures) { # return empty list of arch!=win32 and pattern matches bin/win32 @@ -203,10 +208,11 @@ sub get_matching_files { my @foo = $self->_get_matching_files($type,$newp); $returnfiles{$a} = [ @foo ]; } - return(\%returnfiles); - } else { + return \%returnfiles; + + } else { # non-bin pattern my @returnfiles = $self->_get_matching_files($type,$p); - return(\@returnfiles); + return \@returnfiles; } } |