23 lines
803 B
Diff
23 lines
803 B
Diff
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});
|