summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl11
1 files changed, 7 insertions, 4 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index 094834405a5..47796474fb4 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -5002,7 +5002,7 @@ sub init_tlmedia
# check that there is a main repository
if (!TeXLive::TLUtils::member('main', @tags)) {
- tldie("Cannot find main repository, you have to tag one as main!\n");
+ tldie("$0: Cannot find main repository, you have to tag one as main!\n");
}
# TODO TODO
@@ -5173,13 +5173,15 @@ END_NO_INTERNET
my $texlive_release = $remotetlpdb->config_release;
my $texlive_minrelease = $remotetlpdb->config_minrelease;
if (!defined($texlive_release)) {
- tldie "The installation repository does not specify a release year for which it was prepared, bailing out.\n";
+ tldie("$0: The installation repository does not specify a "
+ . "release year for which it was prepared, goodbye.\n");
}
# still here, so we have $texlive_release defined
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";
+ tldie("$0: The installation repository does not specify a "
+ . "valid release year, goodbye: $texlive_release\n");
}
# so $texlive_release_year is numeric, good
if (defined($texlive_minrelease)) {
@@ -5187,7 +5189,8 @@ END_NO_INTERNET
my $texlive_minrelease_year = $texlive_minrelease;
$texlive_minrelease_year =~ s/^(....).*$/$1/;
if ($texlive_minrelease_year !~ m/^[1-9][0-9][0-9][0-9]$/) {
- tldie "The installation repository does not specify a valid minimal release year: $texlive_minrelease, bailing out.\n";
+ tldie("The installation repository does not specify a "
+ . "valid minimal release year, goodbye: $texlive_minrelease\n");
}
# ok, all numeric and fine, check for range
if ($TeXLive::TLConfig::ReleaseYear < $texlive_minrelease_year