File resource-agents-deprecate-INET6.patch of Package resource-agents

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});