diff options
author | Norbert Preining <preining@logic.at> | 2008-05-15 08:52:12 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-05-15 08:52:12 +0000 |
commit | 760f0b88420ad1079b5596e469b55fda9cf374d5 (patch) | |
tree | 75bbc35bb1c5bc709f7895339917864996555e8d /Master/tlpkg/TeXLive/TLPDB.pm | |
parent | 168e470deff278cbe71353ed8fcb5fb524eb6746 (diff) |
fix for available_archs problem:
- no save the list of available/installed archs into
00texlive-installation.config
at installation time. TLPDB->available_archs will read that and NOT
check for bin-tex.ARCHs
- update tlpsrc/00texlive-installation.config.tlpsrc to contain all the
currently available archs. THAT COULD BE AUTOGENERATED!!!
- add option_archs to TLPDB, rewrite TLPDB->available_archs to use that one
- TLMedia.pm: install .ARCH dpeends in *ANY* case, even if --nodepends is
given
git-svn-id: svn://tug.org/texlive/trunk@8150 c570f23f-e606-0410-a88d-b1316a301751
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); } |