From 0fa4381419fcc88addbdf2e023c0f136c5fe195b Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alex@spline.inf.fu-berlin.de>
Date: Wed, 28 Oct 2015 21:27:16 +0100
Subject: server: Do not close socket before sending

---
 server.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/server.pl b/server.pl
index 14804e7..4958fa4 100755
--- a/server.pl
+++ b/server.pl
@@ -53,8 +53,11 @@ tcp_server 'unix/', $stats_socket, sub {
 
     $h->push_write(Storable::freeze($stats) . "\n");
     $stats = { ham => 0, spam => 0, block => 0 };
-    $h->destroy;
-    undef $h;
+
+    $h->on_drain (sub {
+        $h->destroy;
+        undef $h;
+    });
 };
 
 AnyEvent->condvar->recv;
-- 
cgit v1.2.3-1-g7c22