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

[mser...@cvs.perl.org]

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]");