| To: | bug-File-Fetch [...] rt.cpan.org |
| From: | Richard Soderberg <perl [...] crystalflame.net> |
| Subject: | LWP error reporting enhancement |
| Date: | Sun, 6 Jun 2004 07:08:05 -0700 |
As requested, improves LWP diagnostic capability; see also [cpan #6525].
- R.
--- lib/File/Fetch.pm Sat May 22 05:39:58 2004
+++ /tmp/p Sun Jun 6 07:06:56 2004
@@ -302,8 +302,9 @@
return $to;
} else {
- warn "Fetch failed! HTTP response code: '". $res->code ."'
[".
- HTTP::Status::status_message($res->code). "]\n";
+ warn "Fetch failed! HTTP response: " . $res->code .
+ " " . HTTP::Status::status_message($res->code) .
+ " [". $res->status_line . "]\n";
return;
}