summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm11
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 {