diff options
| author | Norbert Preining <preining@logic.at> | 2008-01-15 08:33:53 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-01-15 08:33:53 +0000 |
| commit | ae847bfecf07bc642c75129c36dee8cd2bc41413 (patch) | |
| tree | 38ecbd7260629ae40b4f5a9ab25072014dc16ca7 | |
| parent | c7b18afcdbe07eb1d34115ba7fb3b214117edf0f (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
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 19 | ||||
| -rw-r--r-- | Master/tlpkg/tlpsrc/00texlive.config.tlpsrc | 1 |
2 files changed, 20 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 >> diff --git a/Master/tlpkg/tlpsrc/00texlive.config.tlpsrc b/Master/tlpkg/tlpsrc/00texlive.config.tlpsrc index 79e6f239e5f..c4485416e4c 100644 --- a/Master/tlpkg/tlpsrc/00texlive.config.tlpsrc +++ b/Master/tlpkg/tlpsrc/00texlive.config.tlpsrc @@ -3,3 +3,4 @@ category TLCore depend container_split_src_files depend container_split_doc_files depend container_format/lzma +depend release/2008 |