summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2010-05-12 16:45:35 +0000
committerNorbert Preining <preining@logic.at>2010-05-12 16:45:35 +0000
commit44ccd4efc5352f9eb1099ba357708e7b5ff03b83 (patch)
tree90ff578cd671e036c845ce16aab721a23b2af458 /Master/tlpkg
parent5d696fad64e4ede5004e90d07f5decc9c941018a (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.pm22
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.