fix tltree

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

1 files changed, 3 insertions, 3 deletions

diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm
index 5e016e71c9a..8665cc8dd46 100644
--- a/Master/tlpkg/TeXLive/TLTREE.pm
+++ b/Master/tlpkg/TeXLive/TLTREE.pm
@@ -80,7 +80,7 @@ sub _initialize_lines {
     }
   }
   # save list of architectures
-  $self->archs(keys(%archs));
+  $self->architectures(keys(%archs));
   # now do some magic
   # - create list of top level dirs with a list of full path names of
   #   the respective dir attached
@@ -177,7 +177,7 @@ sub get_matching_files {
   if ($type eq "bin") {
     # we first substitute arch for ${ARCH}
     my %returnfiles;
-    foreach $a ($self->archs) {
+    foreach $a ($self->architectures) {
       # return empty list of arch!=win32 and pattern matches bin/win32
       if (($p =~ m@f bin/win32/@) && ($a ne "win32")) {
         $returnfiles{$a} = [ ];
@@ -311,7 +311,7 @@ sub svnroot {
   return $self->{'svnroot'};
 }
 
-sub archs {
+sub architectures {
   my $self = shift;
   if (@_) { @{ $self->{'archs'} } = @_ }
   return exists $self->{'archs'} ? @{ $self->{'archs'} } : undef;