diff options
| author | Karl Berry <karl@freefriends.org> | 2012-04-19 23:24:04 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2012-04-19 23:24:04 +0000 |
| commit | fc0fc955a33533153d43a0d79f6a70d4e1ae5881 (patch) | |
| tree | f77232a1fc0b1b88a44fcb5ddda87e60daa3c2ff /Master/texmf/scripts | |
| parent | 0936a3a76483e03b9ebbc2378110c67ccc8781cf (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/texmf/scripts')
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 11 |
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 |