diff options
| author | franck cuny <franck@lumberjaph.net> | 2011-07-11 12:00:38 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2011-07-26 13:21:01 +0200 |
| commit | 21909ee12d2ca95f62470888a1f4ec09d6546dc0 (patch) | |
| tree | 1dc3bf43d9e6fe7e7139372c6649b5346a3f9f13 /lib/Net/HTTP | |
| parent | can't log at this point when we attach a method (diff) | |
| download | net-http-spore-21909ee12d2ca95f62470888a1f4ec09d6546dc0.tar.gz | |
be explicit when there is a timeout
Signed-off-by: franck cuny <franck@lumberjaph.net>
Diffstat (limited to 'lib/Net/HTTP')
| -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 { |