File 0001-Medium-ldirectord-Remove-IPv6-workaround-bsc-977193.patch of Package resource-agents.2497

From 83035ab9ba49df643767d70162951b42b2c6356c Mon Sep 17 00:00:00 2001
From: Michal Koutny <michal.koutny@suse.com>
Date: Tue, 26 Apr 2016 16:20:07 +0200
Subject: [PATCH] Medium: ldirectord: Remove IPv6 workaround (bsc#977193)

Remove workaround for missing IPv6 support in perl-libwww.

The workaround causes issues in a mixed IPv4 and IPv6 environment,
as it overwrites the global EXTRA_SOCK_OPTS.

The underlying issue is fixed with libwww-perl/net-http#10 and libwww-perl/libwww-perl#58.

I would suggest that users and distributions make sure that their
version of libwww-perl has those patches applied, instead of trying
to work around the problem in ldirectord.

Version 6.080 of libwww-perl includes the patches.

The related CPAN issue suggests an alternative workaround if that is
not possible, see https://rt.cpan.org/Public/Bug/Display.html?id=75618
---
 ldirectord/ldirectord.in | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/ldirectord/ldirectord.in b/ldirectord/ldirectord.in
index c65770c..81c6680 100644
--- a/ldirectord/ldirectord.in
+++ b/ldirectord/ldirectord.in
@@ -2864,10 +2864,6 @@ sub check_http
 	if (inet_pton(AF_INET6,&ld_strip_brackets($host))) {
 		no warnings 'once';
 		require Net::INET6Glue::INET_is_INET6;
-		# Workaround for Net-HTTP IPv6 Address URLs Broken
-		@LWP::Protocol::http::EXTRA_SOCK_OPTS = (PeerAddr => $host,
-							 PeerHost => &ld_strip_brackets($host),
-							 Host => &ld_strip_brackets($host));
 	}
 
 	my $ua = new LWP::UserAgent(ssl_opts => { verify_hostname => 0 });
-- 
2.8.1