summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLTREE.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-07-17 17:29:42 +0000
committerKarl Berry <karl@freefriends.org>2008-07-17 17:29:42 +0000
commit55b6390d0fab9ddc5918cb45f0ada0fb4824e201 (patch)
tree2dc3791ac2175787d642abc1f93666ff570a70b2 /Master/tlpkg/TeXLive/TLTREE.pm
parent36b036f5cddec38eddfea2241e9acff2247e60de (diff)
get man pages in pdf
git-svn-id: svn://tug.org/texlive/trunk@9633 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm14
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;
}
}