[Bps-public-commit] r9464 - in Net-Server-IMAP: lib/Net/Server/IMAP

[alexmv at bestpractical.com]

Author: alexmv
Date: Thu Oct 25 17:14:03 2007
New Revision: 9464

Modified:
   Net-Server-IMAP/   (props changed)
   Net-Server-IMAP/lib/Net/Server/IMAP/Connection.pm

Log:
 r24038 at zoq-fot-pik:  chmrr | 2007-10-25 17:10:42 -0400
  * Make our writes blocking, so we don't need to wait until the socket can take 'em


Modified: Net-Server-IMAP/lib/Net/Server/IMAP/Connection.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/Server/IMAP/Connection.pm	(original)
+++ Net-Server-IMAP/lib/Net/Server/IMAP/Connection.pm	Thu Oct 25 17:14:03 2007
@@ -231,7 +231,10 @@
     my $msg  = shift;
 
     if ($self->io_handle) {
+        $self->io_handle->blocking(1);
         $self->io_handle->print($msg);
+        $self->io_handle->blocking(0);
+
         $self->log("S(@{[$self->io_handle->peerport]},@{[$self->auth ? $self->auth->user : '???']},@{[$self->is_selected ? $self->selected->full_path : 'unselected']}): $msg");
     } else {
         warn "Connection closed unexpectedly\n";