From fc0fc955a33533153d43a0d79f6a70d4e1ae5881 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 19 Apr 2012 23:24:04 +0000 Subject: tldie: mention $0, avoid long source lines git-svn-id: svn://tug.org/texlive/trunk@26060 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgr.pl | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'Master/texmf') 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 -- cgit v1.2.3