diff options
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 { |