diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 54105de6777..dff38e4948c 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -284,13 +284,17 @@ sub save { =item C<< $tlpdb->available_architectures >> The C<available_architectures> functions returns the list of available -architectures by checking for binfiles in the "bin-tex" TLPOBJ. If this -package does not exist, die. +architectures as set in the options section (i.e., using option_archs) =cut sub available_architectures { my $self = shift; + return $self->option_archs; +} + +sub old_available_architectures { + my $self = shift; my @packs = $self->list_packages; my @archs; # map { s@^$tltree/@@ ; push @nf, $_; } @files; @@ -806,6 +810,12 @@ sub _option_value { return; } +sub option_archs { + my $self = shift; + if (@_) { $self->_set_option_value("archs","@_"); } + my @archs = split ' ', $self->_option_value("archs"); + return @archs; +} sub option_symlinks { my $self = shift; if (@_) { $self->_set_option_value("symlinks", shift); } |