net.server_event: Re-add write event if writebuffer is non-empty after write (eg...

diff --git a/net/server_event.lua b/net/server_event.lua
index d505825dda68636187239957b33d02f32c94e652..1c6f154789d88b08011543cbb9c99bbdf96b2cc9 100644 (file)
--- a/net/server_event.lua
+++ b/net/server_event.lua
@@ -548,6 +548,10 @@ do
                                        elseif interface.eventreadtimeout then
                                                return EV_WRITE, EV_TIMEOUT
                                        end
+                                       if interface.writebuffer ~= 0 then
+                                               -- data possibly written from ondrain
+                                               return EV_WRITE, cfg.WRITE_TIMEOUT
+                                       end
                                        interface.eventwrite = nil
                                        return -1
                                elseif byte and (err == "timeout" or err == "wantwrite") then  -- want write again