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