Tests: fixed http_keepalive.t with short reads and double logging.

http_keepalive.t

diff --git a/http_keepalive.t b/http_keepalive.t
index 2613bd4..f8a89e7 100644
--- a/http_keepalive.t
+++ b/http_keepalive.t
@@ -108,7 +108,7 @@
 
 sub http_keepalive {
 	my ($url, %opts) = @_;
-	my $data = '';
+	my $total = '';
 
 	$opts{ua} = $opts{ua} || '';
 	$opts{req} = $opts{req} || 1;
@@ -130,6 +130,8 @@
 
 EOF
 
+		my $data = '';
+
 		while (IO::Select->new($s)->can_read(3)) {
 			sysread($s, my $buffer, 4096) or last;
 			$data .= $buffer;
@@ -137,9 +139,11 @@
 		}
 
 		log_in($data);
+
+		$total .= $data;
 	}
 
-	return $data;
+	return $total;
 }
 
 sub count_keepalive {