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

[alexmv at bestpractical.com]

Author: alexmv
Date: Thu Mar 27 15:53:35 2008
New Revision: 11243

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

Log:
 r28895 at kohr-ah:  chmrr | 2008-03-27 15:53:26 -0400
  * Try to print from the right coro, so EV doesn't complain about
    recursive entry, and then wedge the next time it happens.


Modified: Net-IMAP-Server/lib/Net/IMAP/Server/Connection.pm
==============================================================================
--- Net-IMAP-Server/lib/Net/IMAP/Server/Connection.pm	(original)
+++ Net-IMAP-Server/lib/Net/IMAP/Server/Connection.pm	Thu Mar 27 15:53:35 2008
@@ -153,6 +153,7 @@
     my $err = $@;
     warn $err
         if $err and not( $err eq "Error printing\n" or $err eq "Timeout\n" );
+    eval { $self->out("* BYE Idle timeout; I fell asleep.") if $err eq "Timeout\n"; };
     $self->close;
 }
 
@@ -167,7 +168,6 @@
     $self->timer->stop if $self->timer;
     $self->timer(undef);
     my $timeout = sub {
-        eval { $self->out("* BYE Idle timeout; I fell asleep."); };
         $self->coro->throw("Timeout\n");
         $self->coro->ready;
     };