From 02ad4921ca1ed9c63946c2f1a1fc9cf80313c8ed Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 10 Jun 2008 18:06:06 +0000 Subject: 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 --- Master/tlpkg/TeXLive/TLPDB.pm | 11 ++++++----- Master/tlpkg/bin/tlpsrc2tlpdb | 2 +- 2 files changed, 7 insertions(+), 6 deletions(-) (limited to 'Master/tlpkg') 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 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 { diff --git a/Master/tlpkg/bin/tlpsrc2tlpdb b/Master/tlpkg/bin/tlpsrc2tlpdb index e5145c0be7b..afd12d47f49 100755 --- a/Master/tlpkg/bin/tlpsrc2tlpdb +++ b/Master/tlpkg/bin/tlpsrc2tlpdb @@ -110,7 +110,7 @@ sub main if ($opt_all) { $tldb->root("$opt_master"); # do set the option_archs from the dirs in Master/bin - $tldb->option_available_archs($tltree->architectures); + $tldb->option_available_architectures($tltree->architectures); $tldb->save; info("$0: wrote $src_count packages to ". $tldb->root . ".\n"); } else { -- cgit v1.2.3