From:	msergeant@cvs.perl.org	Date:	Thu May 17 21:07:54 2007
Subject:	[svn:qpsmtpd] r742 - trunk/plugins

Author: msergeant
Date: Thu May 17 20:07:53 2007
New Revision: 742

Modified:
   trunk/plugins/require_resolvable_fromhost

Log:
Fix for tests failing


Modified: trunk/plugins/require_resolvable_fromhost
==============================================================================
--- trunk/plugins/require_resolvable_fromhost	(original)
+++ trunk/plugins/require_resolvable_fromhost	Thu May 17 20:07:53 2007
@@ -2,9 +2,10 @@
 use Net::DNS qw(mx);
 use Socket;
 use Net::IP qw(:PROC);
+use Qpsmtpd::TcpServer;
 
 my %invalid = ();
-my $has_ipv6 = Qpsmtpd::TcpServer::has_ipv6;
+my $has_ipv6 = Qpsmtpd::TcpServer::has_ipv6();
 
 sub hook_mail {
   my ($self, $transaction, $sender, %param) = @_;