From deb8356e97b2aacab345b791ab39784da8d3fe37 Mon Sep 17 00:00:00 2001 From: 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.43.0