From 55b6390d0fab9ddc5918cb45f0ada0fb4824e201 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Thu, 17 Jul 2008 17:29:42 +0000
Subject: get man pages in pdf

git-svn-id: svn://tug.org/texlive/trunk@9633 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/tlpkg/TeXLive/TLTREE.pm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

(limited to 'Master/tlpkg/TeXLive')

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;
   }
 }
 
-- 
cgit v1.2.3