From 21909ee12d2ca95f62470888a1f4ec09d6546dc0 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 11 Jul 2011 12:00:38 +0200
Subject: be explicit when there is a timeout

Signed-off-by: franck cuny <franck@lumberjaph.net>
---
 lib/Net/HTTP/Spore/Response.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'lib/Net/HTTP')

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 {
-- 
cgit 1.4.1