Index: resource-agents-4.13.0+git6.ae50f94f/ldirectord/ldirectord.in =================================================================== --- resource-agents-4.13.0+git6.ae50f94f.orig/ldirectord/ldirectord.in +++ resource-agents-4.13.0+git6.ae50f94f/ldirectord/ldirectord.in @@ -3264,7 +3264,7 @@ sub check_ldap sub check_nntp { use IO::Socket; - use IO::Socket::INET6; + use IO::Socket::IP; use IO::Select; my ($v, $r) = @_; my $sock; @@ -3275,7 +3275,7 @@ sub check_nntp &ld_debug(2, "Checking NNTP server=$$r{server} port=$port"); - unless ($sock = IO::Socket::INET6->new(PeerAddr => $$r{server}, + unless ($sock = IO::Socket::IP->new(PeerAddr => $$r{server}, PeerPort => $port, Proto => 'tcp', TimeOut => $$v{negotiatetimeout})) { service_set($v, $r, "down", {do_log => 1});