summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-15 08:52:12 +0000
committerNorbert Preining <preining@logic.at>2008-05-15 08:52:12 +0000
commit760f0b88420ad1079b5596e469b55fda9cf374d5 (patch)
tree75bbc35bb1c5bc709f7895339917864996555e8d /Master/tlpkg/TeXLive/TLPDB.pm
parent168e470deff278cbe71353ed8fcb5fb524eb6746 (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.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); }