From 6fc25099b0a217aa87f70154ed82bdf5acd63340 Mon Sep 17 00:00:00 2001
From: Radu Greab <radu@yx.ro>
Date: Tue, 3 Jun 2008 07:35:59 +0000
Subject: [PATCH] Revert #923, there are objections against it because it is
 good to know why the reverse DNS lookup failed.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@924 958fd67b-6ff1-0310-b445-bb7760255be9
---
 Changes                   | 3 ---
 lib/Qpsmtpd/PollServer.pm | 2 +-
 2 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/Changes b/Changes
index e6d5f50..bda873c 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,3 @@
-  async: Set connection remote_host only when the reverse DNS lookup is
-  successful
-
   Create async version of dns_whitelist_soft, rhsbl and uribl plugins.
 
   async: added pre- and post-connection hooks
diff --git a/lib/Qpsmtpd/PollServer.pm b/lib/Qpsmtpd/PollServer.pm
index 62a6de7..566bf04 100644
--- a/lib/Qpsmtpd/PollServer.pm
+++ b/lib/Qpsmtpd/PollServer.pm
@@ -183,7 +183,7 @@ sub start_conversation {
     ParaDNS->new(
         finished   => sub { $self->continue_read(); $self->run_hooks("connect") },
         # NB: Setting remote_info to the same as remote_host
-        callback   => sub { $conn->remote_info($conn->remote_host($_[0])) if $_[0] !~ /^[A-Z]+$/ },
+        callback   => sub { $conn->remote_info($conn->remote_host($_[0])) },
         host       => $ip,
     );