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

[alexmv at bestpractical.com]

Author: alexmv
Date: Tue Mar 11 12:34:19 2008
New Revision: 11041

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

Log:
 r28415 at kohr-ah:  chmrr | 2008-03-11 12:34:08 -0400
  * Connections weren't being fully closed on timeout
  * Version bump


Modified: Net-IMAP-Server/Changes
==============================================================================
--- Net-IMAP-Server/Changes	(original)
+++ Net-IMAP-Server/Changes	Tue Mar 11 12:34:19 2008
@@ -1,4 +1,7 @@
 Revision history for Net-IMAP-Server
 
+0.3    Tue Mar 11 12:33:14 2008
+       Connections weren't being fully closed on timeout
+
 0.2    Mon Mar 10 16:47:52 2008
        Initial release to CPAN

Modified: Net-IMAP-Server/lib/Net/IMAP/Server.pm
==============================================================================
--- Net-IMAP-Server/lib/Net/IMAP/Server.pm	(original)
+++ Net-IMAP-Server/lib/Net/IMAP/Server.pm	Tue Mar 11 12:34:19 2008
@@ -8,7 +8,7 @@
 use UNIVERSAL::require;
 use Coro;
 
-our $VERSION = '0.2';
+our $VERSION = '0.3';
 
 =head1 NAME
 

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	Tue Mar 11 12:34:19 2008
@@ -140,7 +140,6 @@
             {
                 $self->out(
                     "* BYE Don't noodle around so much before logging in!");
-                $self->close;
                 last;
             }
             $self->update_timer;
@@ -150,11 +149,11 @@
         $self->log(
             "-(@{[$self]},@{[$self->auth ? $self->auth->user : '???']},@{[$self->is_selected ? $self->selected->full_path : 'unselected']}): Connection closed by remote host"
         );
-        $self->close;
     };
     my $err = $@;
     warn $err
         if $err and not( $err eq "Error printing\n" or $err eq "Timeout\n" );
+    $self->close;
 }
 
 =head2 update_timer