summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLTREE.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-11-06 07:32:31 +0000
committerNorbert Preining <preining@logic.at>2007-11-06 07:32:31 +0000
commitd9200d29c7317505f2c67d74ada691a6c277da9c (patch)
tree08041d2e52eda7671f358b4d887d64988b3fd720 /Master/tlpkg/TeXLive/TLTREE.pm
parent856c302ab0fcc0b0fe092323ed182e2e49e2c034 (diff)
fix tltree
git-svn-id: svn://tug.org/texlive/trunk@5365 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm6
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;