http: pass reference to Danga::Socket::write

This can avoid an expensive copy for big strings.

diff --git a/lib/PublicInbox/HTTP.pm b/lib/PublicInbox/HTTP.pm
index 6576bf684931e6835ef9d07b4268e265a5ed8542..4eb14481fb667d219052f46c5461b974aca2889e 100644 (file)
--- a/lib/PublicInbox/HTTP.pm
+++ b/lib/PublicInbox/HTTP.pm
@@ -200,7 +200,7 @@ sub response_write {
        my $alive = response_header_write($self, $env, $res);
 
        # middlewares such as Deflater may write empty strings
-       my $write = sub { $self->write($_[0]) if $_[0] ne '' };
+       my $write = sub { $self->write(\($_[0])) if $_[0] ne '' };
        my $close = sub {
                if ($alive) {
                        $self->event_write; # watch for readability if done