[svn:qpsmtpd] r728 - trunk/lib/Qpsmtpd

[email protected] Wed, 21 Mar 2007 06:43:06 -0700 (PDT)
Newsgroups perl.cvs.qpsmtpd
Message-ID <[email protected]>
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]");