diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/Net/HTTP/Spore/Response.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/Net/HTTP/Spore/Response.pm b/lib/Net/HTTP/Spore/Response.pm index 95ee72b..a7acea1 100644 --- a/lib/Net/HTTP/Spore/Response.pm +++ b/lib/Net/HTTP/Spore/Response.pm @@ -96,7 +96,11 @@ sub header { sub to_string { my $self = shift; - return "HTTP status: ".$self->{status}; + my $status = "HTTP status: ".$self->{status}; + if ($self->{body} =~ /read timeout/){ + $status .= " - read timeout"; + } + return $status; } sub finalize { |