die if we are loading a too old remote database

git-svn-id: svn://tug.org/texlive/trunk@14303 c570f23f-e606-0410-a88d-b1316a301751

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.