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.pm9
1 files changed, 9 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index cc1d4943bcf..10bbc7b9cf1 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -49,6 +49,7 @@ C<TeXLive::TLPDB> -- A database of TeX Live Packages
$tlpdb->config_container_format;
$tlpdb->config_release;
$tlpdb->config_revision;
+ $tlpdb->option($key, [$value]);
TeXLive::TLPDB->listdir([$dir]);
$tlpdb->generate_listfiles([$destdir]);
@@ -955,6 +956,14 @@ sub _option_value {
return;
}
+sub option {
+ my $self = shift;
+ my $key = shift;
+ if (@_) { $self->_set_option_value($key, shift); }
+ return $self->_option_value($key);
+}
+# TODO the above function should be used in the functions below as
+# far as possible ...
sub option_available_architectures {
my $self = shift;
if (@_) { $self->_set_option_value("available_architectures","@_"); }