diff options
author | Norbert Preining <preining@logic.at> | 2008-06-10 18:06:06 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-06-10 18:06:06 +0000 |
commit | 02ad4921ca1ed9c63946c2f1a1fc9cf80313c8ed (patch) | |
tree | 978f8ecf6406dc24eb7979c3f262f6c0a2406283 /Master/tlpkg/TeXLive/TLPDB.pm | |
parent | 754ce064412a8cfc072f770898f4ad75466250f2 (diff) |
rename available_archs to available_architectures, Karl couldn't stand
the pidgin english ... sorry ;-)
git-svn-id: svn://tug.org/texlive/trunk@8660 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index a8e00e67f65..5e990d8795a 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -285,13 +285,14 @@ sub save { =item C<< $tlpdb->available_architectures >> The C<available_architectures> functions returns the list of available -architectures as set in the options section (i.e., using option_available_archs) +architectures as set in the options section +(i.e., using option_available_architectures) =cut sub available_architectures { my $self = shift; - my @archs = $self->option_available_archs; + my @archs = $self->option_available_architectures; if (! @archs) { # fall back to the old method checking bin-tex\.* my @packs = $self->list_packages; @@ -828,10 +829,10 @@ sub _option_value { return; } -sub option_available_archs { +sub option_available_architectures { my $self = shift; - if (@_) { $self->_set_option_value("available_archs","@_"); } - my @archs = split ' ', $self->_option_value("available_archs"); + if (@_) { $self->_set_option_value("available_architectures","@_"); } + my @archs = split ' ', $self->_option_value("available_architectures"); return @archs; } sub option_create_symlinks { |