summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-04-19 23:24:04 +0000
committerKarl Berry <karl@freefriends.org>2012-04-19 23:24:04 +0000
commitfc0fc955a33533153d43a0d79f6a70d4e1ae5881 (patch)
treef77232a1fc0b1b88a44fcb5ddda87e60daa3c2ff /Master
parent0936a3a76483e03b9ebbc2378110c67ccc8781cf (diff)
tldie: mention $0, avoid long source lines
git-svn-id: svn://tug.org/texlive/trunk@26060 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-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