From deb8356e97b2aacab345b791ab39784da8d3fe37 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Tue, 17 Apr 2001 20:24:16 +0000
Subject: [PATCH] make write complete

---
 perl/Msg.pm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 3b96c812..ae9c4c28 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -287,13 +287,11 @@ sub _send {
         delete $conn->{send_offset};
         $offset = 0;
         shift @$rq;
-        last unless $flush; # Go back to select and wait
+        #last unless $flush; # Go back to select and wait
                             # for it to fire again.
     }
     # Call me back if queue has not been drained.
-    if (@$rq) {
-        set_event_handler ($sock, write => sub {$conn->_send(0)});
-    } else {
+    unless (@$rq) {
         set_event_handler ($sock, write => undef);
 		if (exists $conn->{close_on_empty}) {
 			&{$conn->{eproc}}($conn, undef) if exists $conn->{eproc};
-- 
2.34.1