summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-15 08:33:53 +0000
committerNorbert Preining <preining@logic.at>2008-01-15 08:33:53 +0000
commitae847bfecf07bc642c75129c36dee8cd2bc41413 (patch)
tree38ecbd7260629ae40b4f5a9ab25072014dc16ca7 /Master/tlpkg/TeXLive/TLPDB.pm
parentc7b18afcdbe07eb1d34115ba7fb3b214117edf0f (diff)
put the release number into 00texlive.config.tlpsrc, and add
$tlpdb->config_release git-svn-id: svn://tug.org/texlive/trunk@6235 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm19
1 files changed, 19 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 073d0a9574a..f3ead7180bd 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -41,6 +41,7 @@ C<TeXLive::TLPDB> -- A database of TeX Live Packages
$tlpdb->config_src_container;
$tlpdb->config_doc_container;
$tlpdb->config_container_format;
+ $tlpdb->config_release;
TeXLive::TLPDB->listdir([$dir]);
$tlpdb->generate_listfiles([$destdir]);
@@ -636,6 +637,24 @@ sub config_container_format {
return "";
}
+=item C<< $tlpdb->config_release >>
+
+Returns the currently set release. See Options below.
+
+=cut
+
+sub config_release {
+ my $self = shift;
+ if (defined($self->{'tlps'}{'00texlive.config'})) {
+ foreach my $d ($self->{'tlps'}{'00texlive.config'}->depends) {
+ if ($d =~ m!^release/(.*)$!) {
+ return "$1";
+ }
+ }
+ }
+ return "";
+}
+
=pod
=item C<< $tlpdb->fmtutil_cnf_lines >>