summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-03-31 17:19:12 +0000
committerKarl Berry <karl@freefriends.org>2013-03-31 17:19:12 +0000
commitaa9c9884cecb845859c83ac270062f670ec12af9 (patch)
tree71d923d6ddbfeef41ce02f90ef9b4d25f57db51a /Master/tlpkg/TeXLive
parent212e9d9b59c85b5227bdc338d8c84af4e61db334 (diff)
pinning doc, msgs
git-svn-id: svn://tug.org/texlive/trunk@29567 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r--Master/tlpkg/TeXLive/TLDownload.pm14
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm6
2 files changed, 10 insertions, 10 deletions
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");
}
}