From 2d6bee167923be10bb4286934e6c5ba03ae7990b Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Sat, 26 May 2007 00:48:09 +0000
Subject: [PATCH] Fix for new IPv6 code

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@743 958fd67b-6ff1-0310-b445-bb7760255be9
---
 plugins/async/require_resolvable_fromhost | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/plugins/async/require_resolvable_fromhost b/plugins/async/require_resolvable_fromhost
index 37360af..bec7b27 100644
--- a/plugins/async/require_resolvable_fromhost
+++ b/plugins/async/require_resolvable_fromhost
@@ -3,9 +3,10 @@
 use Qpsmtpd::DSN;
 use ParaDNS;
 use Socket;
+use Qpsmtpd::TcpServer;
 
 my %invalid  = ();
-my $has_ipv6 = Qpsmtpd::Constants::has_ipv6;
+my $has_ipv6 = Qpsmtpd::TcpServer::has_ipv6();
 
 sub register {
     my ( $self, $qp ) = @_;