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

1 files changed, 2 insertions, 12 deletions

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'} } = @_ }