[svn:qpsmtpd] r742 - trunk/plugins

[mser...@cvs.perl.org]

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) = @_;