From a375bc53021f90ec4fecd369430165d7d04ceb24 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Wed, 21 Mar 2007 13:42:57 +0000
Subject: [PATCH] Fix for when connection immediately disconnects

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@728 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Qpsmtpd/PollServer.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Qpsmtpd/PollServer.pm b/lib/Qpsmtpd/PollServer.pm
index 8219418..8ba24bf 100644
--- a/lib/Qpsmtpd/PollServer.pm
+++ b/lib/Qpsmtpd/PollServer.pm
@@ -170,6 +170,7 @@ sub start_conversation {
     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]");