(all_files): call allbinfiles.

git-svn-id: svn://tug.org/texlive/trunk@6880 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 2 insertions, 5 deletions

diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index bb2fd061aa9..9576f7eb24f 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -782,11 +782,7 @@ sub all_files {
   push (@ret, $self->docfiles);
   push (@ret, $self->runfiles);
   push (@ret, $self->srcfiles);
-  
-  my %binfiles = %{$self->binfiles};
-  foreach my $arch (keys %binfiles) {
-    push (@ret, @{$binfiles{$arch}});
-  }
+  push (@ret, $self->allbinfiles);
   
   return @ret;
 }
@@ -798,6 +794,7 @@ sub allbinfiles {
   foreach my $arch (keys %binfiles) {
     push (@ret, @{$binfiles{$arch}});
   }
+  
   return @ret;
 }