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.pm14
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); }