From: minima <minima>
Date: Tue, 17 Apr 2001 20:24:16 +0000 (+0000)
Subject: make write complete
X-Git-Tag: R_1_47~21
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=deb8356e97b2aacab345b791ab39784da8d3fe37;p=spider.git

make write complete
---

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};