From:	msergeant@cvs.perl.org	Date:	Wed Mar 21 07:43:06 2007
Subject:	[svn:qpsmtpd] r728 - trunk/lib/Qpsmtpd

Author: msergeant
Date: Wed Mar 21 06:42:57 2007
New Revision: 728

Modified:
   trunk/lib/Qpsmtpd/PollServer.pm

Log:
Fix for when connection immediately disconnects


Modified: trunk/lib/Qpsmtpd/PollServer.pm
==============================================================================
--- trunk/lib/Qpsmtpd/PollServer.pm	(original)
+++ trunk/lib/Qpsmtpd/PollServer.pm	Wed Mar 21 06:42:57 2007
@@ -170,6 +170,7 @@
     my $conn = $self->connection;
     # set remote_host, remote_ip and remote_port
     my ($ip, $port) = split(':', $self->peer_addr_string);
+    return $self->close() unless $ip;
     $conn->remote_ip($ip);
     $conn->remote_port($port);
     $conn->remote_info("[$ip]");