[Bps-public-commit] r9327 - in Net-Server-IMAP: .

[alexmv at bestpractical.com]

Author: alexmv
Date: Tue Oct 16 14:16:41 2007
New Revision: 9327

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

Log:
 r23687 at zoq-fot-pik:  chmrr | 2007-10-16 14:16:31 -0400
  * Accept can fail?


Modified: Net-Server-IMAP/lib/Net/Server/IMAP.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/Server/IMAP.pm	(original)
+++ Net-Server-IMAP/lib/Net/Server/IMAP.pm	Tue Oct 16 14:16:41 2007
@@ -66,8 +66,11 @@
                 if ( $fh == $lsn or (defined $ssl and $fh == $ssl)) {
 
                     # Create a new socket
-                    my $new = $fh->accept;
-                    $self->accept_connection($new);
+                    if (my $new = $fh->accept) {
+                        $self->accept_connection($new);
+                    } else {
+                        warn "Accept failed? $@\n";
+                    }
                 } else {
 
                     # Process socket