summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLDownload.pm
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/TLDownload.pm
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/TLDownload.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLDownload.pm14
1 files changed, 7 insertions, 7 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;
}