summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-07-17 20:50:24 +0000
committerNorbert Preining <preining@logic.at>2009-07-17 20:50:24 +0000
commit7852af8cd560e67763478d529b2af601542727ba (patch)
tree6624b130c33bd80124c5be7cfdab37a7c5af1997 /Master/texmf
parentfd67de702665cf265a8a7e8f73baca6d00321cb7 (diff)
die if we are loading a too old remote database
git-svn-id: svn://tug.org/texlive/trunk@14303 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl10
1 files changed, 10 insertions, 0 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index e02411639c6..2d328a4c9b4 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -3121,6 +3121,16 @@ sub init_tlmedia {
}
die($loadmediasrcerror . $location) unless defined($tlmediasrc);
$tlmediatlpdb = $tlmediasrc->tlpdb;
+ # if the release from the remote TLPDB does not agree with the
+ # TLConfig::ReleaseYear in the first 4 places break out here.
+ # Why only the first four places: some optional network distributions
+ # might use
+ # release/2009-foobar
+ my $texlive_release = $tlmediatlpdb->config_release;
+ if (!defined($texlive_release) ||
+ $texlive_release !~ m/^$TeXLive::TLConfig::ReleaseYear/) {
+ die "The release version of the installation source and the installation media\ndo not agree: source: $texlive_release, media: $TeXLive::TLConfig::ReleaseYear\nPlease fix your location $location";
+ }
# save remote database if it is a net location
# make sure that the writeout of the tlpdb is done in UNIX mode
# since otherwise the sha256 will change.