[PATCH] http: don't requeue if using write buffer

[Eric Wong <e@80x24.org>]

The write buffering will already be processed inside
->event_step, so requeue will cause a needless read(2) outside
of epoll_wait/kevent(2) readiness notifications.

This ought to avoid problems in case of pipelined connections,
but those aren't possible behind a reverse proxy and AFAIK most
HTTP clients don't do pipelining.  This bug was only noticed via
strace while searching for extra syscalls, and not from
real-world use.
---
 lib/PublicInbox/HTTP.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/PublicInbox/HTTP.pm b/lib/PublicInbox/HTTP.pm
index 4ccb1b81..88cab544 100644
--- a/lib/PublicInbox/HTTP.pm
+++ b/lib/PublicInbox/HTTP.pm
@@ -247,7 +247,8 @@ sub response_done {
 	delete $self->{env}; # we're no longer busy
 	# HEAD requests set $alive = 3 so we don't send "0\r\n\r\n";
 	$self->write(\"0\r\n\r\n") if $alive == 2;
-	$self->write($alive ? $self->can('requeue') : \&close);
+	$self->write(\&close) if !$alive;
+	$self->requeue if $alive && !$self->{wbuf};
 }
 
 sub getline_pull {
@@ -280,7 +281,7 @@ sub getline_pull {
 		}
 	} elsif ($@) {
 		warn "response ->getline error: $@";
-		$self->close;
+		return $self->close;
 	}
 	response_done($self, delete $self->{alive});
 }