From 2f26d0832393ae51ec63cfd728e1913904da5bbc Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 13 May 2010 23:55:23 +0000 Subject: fix two more bugs in the new release/maxrelease code in tlmgr.pl git-svn-id: svn://tug.org/texlive/trunk@18233 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgr.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Master/texmf/scripts') diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index c9e5bc55b54..f8d28f5eb32 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -4246,14 +4246,16 @@ END_NO_INTERNET tldie "The installation repository does not specify a release year for which it was prepared, bailing out.\n"; } # still here, so we have $texlive_release defined - my $texlive_release_year =~ s/^(....).*$/$1/; + my $texlive_release_year = $texlive_release; + $texlive_release_year =~ s/^(....).*$/$1/; if ($texlive_release_year !~ m/^[1-9][0-9][0-9][0-9]$/) { tldie "The installation repository does not specify a release year: $texlive_release, bailing out.\n"; } # so $texlive_release_year is numeric, good if (defined($texlive_maxrelease)) { # we specify a range of years! - my $texlive_maxrelease_year =~ s/^(....).*$/$1/; + my $texlive_maxrelease_year = $texlive_maxrelease; + $texlive_maxrelease_year =~ s/^(....).*$/$1/; if ($texlive_maxrelease_year !~ m/^[1-9][0-9][0-9][0-9]$/) { tldie "The installation repository does not specify a valid maximal release year: $texlive_maxrelease, bailing out.\n"; } -- cgit v1.2.3