summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-16 07:37:55 +0000
committerNorbert Preining <preining@logic.at>2008-05-16 07:37:55 +0000
commit241ceda07b169f23581314ab5cb3427cebcddc64 (patch)
tree2be2a4c21e2598fd3b2d3e83442e08344ff911ea /Master/tlpkg/TeXLive/TLPDB.pm
parentaa7500aa9747c7718f63013c17af1e651ba64716 (diff)
if TLPDB->option_archs does not return anything, try the old method of
checking bin-tex.\* git-svn-id: svn://tug.org/texlive/trunk@8169 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm15
1 files changed, 6 insertions, 9 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index dff38e4948c..ab34e246858 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -290,15 +290,12 @@ architectures as set in the options section (i.e., using option_archs)
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;
- map { s/^bin-tex\.// ; push @archs, $_ ; } grep(/^bin-tex\.(.*)$/, @packs);
+ my @archs = $self->option_archs;
+ if (! @archs) {
+ # fall back to the old method checking bin-tex\.*
+ my @packs = $self->list_packages;
+ map { s/^bin-tex\.// ; push @archs, $_ ; } grep(/^bin-tex\.(.*)$/, @packs);
+ }
return @archs;
}