diff options
| -rw-r--r-- | Master/tlpkg/TeXLive/TLTREE.pm | 6 |
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; |