diff options
author | Norbert Preining <preining@logic.at> | 2008-05-16 07:37:55 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-05-16 07:37:55 +0000 |
commit | 241ceda07b169f23581314ab5cb3427cebcddc64 (patch) | |
tree | 2be2a4c21e2598fd3b2d3e83442e08344ff911ea /Master/tlpkg/TeXLive/TLPDB.pm | |
parent | aa7500aa9747c7718f63013c17af1e651ba64716 (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.pm | 15 |
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; } |