Tests: fixed http_keepalive.t with short reads and double logging.
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 {
