diff options
| author | Norbert Preining <preining@logic.at> | 2010-05-12 16:45:35 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2010-05-12 16:45:35 +0000 |
| commit | 44ccd4efc5352f9eb1099ba357708e7b5ff03b83 (patch) | |
| tree | 90ff578cd671e036c845ce16aab721a23b2af458 /Master/tlpkg | |
| parent | 5d696fad64e4ede5004e90d07f5decc9c941018a (diff) | |
allow specifying a range of years in the repository, and make tlmgr check
for that and not to bail out if matches
git-svn-id: svn://tug.org/texlive/trunk@18208 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 5d3066bc8b3..27f3835b646 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -58,6 +58,7 @@ C<TeXLive::TLPDB> -- A database of TeX Live Packages $tlpdb->config_doc_container; $tlpdb->config_container_format; $tlpdb->config_release; + $tlpdb->config_maxrelease; $tlpdb->config_revision; $tlpdb->options; $tlpdb->option($key, [$value]); @@ -940,6 +941,27 @@ sub config_release { =pod +=item C<< $tlpdb->config_maxrelease >> + +Returns the currently allowed maximal release. See Options below. + +=cut + +sub config_maxrelease { + my $self = shift; + if (defined($self->{'tlps'}{'00texlive.config'})) { + foreach my $d ($self->{'tlps'}{'00texlive.config'}->depends) { + if ($d =~ m!^maxrelease/(.*)$!) { + return "$1"; + } + } + } + return; +} + + +=pod + =item C<< $tlpdb->config_revision >> Returns the currently set revision. See Options below. |