develooper Front page | perl.cvs.qpsmtpd | Postings from March 2007

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

From:
msergeant
Date:
March 21, 2007 06:43
Subject:
[svn:qpsmtpd] r728 - trunk/lib/Qpsmtpd
Message ID:
20070321134306.F277ACBA2F@x12.develooper.com
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]");



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About