From aa9c9884cecb845859c83ac270062f670ec12af9 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 31 Mar 2013 17:19:12 +0000 Subject: pinning doc, msgs git-svn-id: svn://tug.org/texlive/trunk@29567 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLDownload.pm | 14 +++++++------- Master/tlpkg/TeXLive/TLPDB.pm | 6 +++--- 2 files changed, 10 insertions(+), 10 deletions(-) (limited to 'Master/tlpkg/TeXLive') diff --git a/Master/tlpkg/TeXLive/TLDownload.pm b/Master/tlpkg/TeXLive/TLDownload.pm index 15c10cb964b..d1528d89768 100644 --- a/Master/tlpkg/TeXLive/TLDownload.pm +++ b/Master/tlpkg/TeXLive/TLDownload.pm @@ -101,14 +101,14 @@ sub decr_errorcount return($self->errorcount(0)); } } -sub reset_errorcount -{ + +sub reset_errorcount { my $self = shift; $self->{'errorcount'} = 0; } -sub get_file -{ - my ($self, $url, $out, $size) = @_; + +sub get_file { + my ($self,$url,$out,$size) = @_; # # automatically disable if error count is getting too big if ($self->errorcount > $MAX_ERRORCOUNT) { @@ -134,8 +134,8 @@ sub get_file return $outfh; } } else { - tlwarn("TLDownload::get_file: response error:\n"); - tlwarn(" " . $response->status_line . "\n"); + tlwarn("TLDownload::get_file: response error: " + . $response->status_line . " (for $url)\n"); $self->incr_errorcount; return; } diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 7321df9533b..4abb1561977 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -2504,9 +2504,9 @@ sub check_evaluate_pinning { # check that all pinning lines where hit for my $p (@pins) { next if defined($p->{'hit'}); - tlwarn("pinning warning: the entry in line\n ", $p->{'line'}, - "\nconcerning the package pattern ", $p->{'glob'}, - "\nis not matched by any package!\n"); + tlwarn("tlmgr: pinning warning: the package pattern ", $p->{'glob'}, + " on the line:\n ", $p->{'line'}, + "\n does not match any package\n"); } } -- cgit v1.2.3