From 880ce57583e2765a9c7735b3a1516722a5959ff3 Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Tue, 6 Nov 2007 07:04:40 +0000
Subject: remove static array @Architectures, and replace it with an
 automatically generated list of archs

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

(limited to 'Master/tlpkg/TeXLive/TLTREE.pm')

diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm
index 545ba366ac2..5e016e71c9a 100644
--- a/Master/tlpkg/TeXLive/TLTREE.pm
+++ b/Master/tlpkg/TeXLive/TLTREE.pm
@@ -9,10 +9,6 @@ package TeXLive::TLTREE;
 
 use TeXLive::TLUtils;
 
-my @Architectures = qw/alpha-linux hppa-hpux i386-darwin i386-freebsd
-  i386-linux i386-openbsd i386-solaris mips-irix powerpc-aix powerpc-darwin
-  powerpc-linux sparc-linux sparc-solaris win32 x86_64-linux/;
-
 sub new {
   my $class = shift;
   my %params = @_;
@@ -69,7 +65,7 @@ sub _initialize_lines {
       my $entry = "$10";
       next if -d $entry;  # TODO: what to do with links???
       # collect architectures
-      if ($entry =~ m,Master/bin/(.*)/tex.*$,) {
+      if ($entry =~ m,^bin/(.*)/tex.*$,) {
         $archs{$1} = 1;
       }
       $self->{'_allfiles'}{$entry}{'lastchangedrev'} = $lastchanged;
@@ -181,7 +177,7 @@ sub get_matching_files {
   if ($type eq "bin") {
     # we first substitute arch for ${ARCH}
     my %returnfiles;
-    foreach $a (@Architectures) {
+    foreach $a ($self->archs) {
       # return empty list of arch!=win32 and pattern matches bin/win32
       if (($p =~ m@f bin/win32/@) && ($a ne "win32")) {
         $returnfiles{$a} = [ ];
@@ -315,12 +311,6 @@ sub svnroot {
   return $self->{'svnroot'};
 }
 
-sub architectures {
-  my $self = shift;
-  if (@_) { @Architectures = @_ }
-  return @Architectures;
-}
-
 sub archs {
   my $self = shift;
   if (@_) { @{ $self->{'archs'} } = @_ }
-- 
cgit v1.2.3