diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 9 |
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","@_"); } |