Subject: | IO::All::LWP doesn't warn on failures |
Date: | Wed, 2 Aug 2017 09:39:56 +0200 (CEST) |
To: | bug-IO-All-LWP [...] rt.cpan.org |
From: | shmem <shmem [...] cruft.de> |
The get/sub methods should at least warn on failures (i.e. a return code
greater than 200). Currently both methods ignore the response. The patch
below fixes this.
IO::All version 0.14
---8<---
--- /usr/share/perl5/IO/All/LWP.pm 2007-03-29 09:31:05.000000000 +0200
+++ Devel/IO/All/LWP.pm 2017-08-02 09:33:01.489495128 +0200
@@ -72,7 +72,9 @@
sub request {
my $self = shift;
- $self->response($self->ua->request(shift));
+ my $response = $self->response($self->ua->request(shift));
+ warn $response->message if $response->code > 200;
+ $response;
}
sub open {
---8<---
best regards,
0--gg-
--
_($_=" "x(1<<5)."?\n".q·/)Oo. G°\ /
/\_¯/(q /
---------------------------- \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}