summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLTREE.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-11-06 07:04:40 +0000
committerNorbert Preining <preining@logic.at>2007-11-06 07:04:40 +0000
commit880ce57583e2765a9c7735b3a1516722a5959ff3 (patch)
treedaccedae5a7110248a69939ae6b977ce58412bb7 /Master/tlpkg/TeXLive/TLTREE.pm
parentb1d30959a610095b5b878767c948ac6f1adf5375 (diff)
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
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm14
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'} } = @_ }