[perl-POE-Component-Resolver] Socket::GetAddrInfo 0.22+ doesn't support API tags, let's fix it

[Petr Šabata]

commit c75790e17784e0a309e1f2e0990b3b65788f2d15
Author: Petr Šabata <contyk at redhat.com>
Date:   Thu Jul 25 09:33:04 2013 +0200

    Socket::GetAddrInfo 0.22+ doesn't support API tags, let's fix it

 POE-Component-Resolver-0.917-getaddrinfo-api.patch |   26 ++++++++++++++++++++
 perl-POE-Component-Resolver.spec                   |    8 +++++-
 2 files changed, 33 insertions(+), 1 deletions(-)
---
diff --git a/POE-Component-Resolver-0.917-getaddrinfo-api.patch b/POE-Component-Resolver-0.917-getaddrinfo-api.patch
new file mode 100644
index 0000000..3cc1263
--- /dev/null
+++ b/POE-Component-Resolver-0.917-getaddrinfo-api.patch
@@ -0,0 +1,26 @@
+diff --git a/lib/POE/Component/Resolver.pm b/lib/POE/Component/Resolver.pm
+index 2e3e977..7059344 100644
+--- a/lib/POE/Component/Resolver.pm
++++ b/lib/POE/Component/Resolver.pm
+@@ -10,7 +10,7 @@ use POE qw(Wheel::Run Filter::Reference);
+ use Carp qw(croak carp);
+ use Time::HiRes qw(time);
+ use Socket qw(unpack_sockaddr_in AF_INET AF_INET6);
+-use Socket::GetAddrInfo qw(:newapi getnameinfo NI_NUMERICHOST NI_NUMERICSERV);
++use Socket::GetAddrInfo qw(getnameinfo NI_NUMERICHOST NI_NUMERICSERV);
+ 
+ use POE::Component::Resolver::Sidecar;
+ 
+diff --git a/lib/POE/Component/Resolver/Sidecar.pm b/lib/POE/Component/Resolver/Sidecar.pm
+index be5cb1a..f2a453e 100644
+--- a/lib/POE/Component/Resolver/Sidecar.pm
++++ b/lib/POE/Component/Resolver/Sidecar.pm
+@@ -8,7 +8,7 @@ use strict;
+ 
+ use Storable qw(nfreeze thaw);
+ 
+-use Socket::GetAddrInfo qw(:newapi getaddrinfo);
++use Socket::GetAddrInfo qw(getaddrinfo);
+ 
+ sub main {
+ 	my $buffer = "";
diff --git a/perl-POE-Component-Resolver.spec b/perl-POE-Component-Resolver.spec
index a8e1f17..d3b8c93 100644
--- a/perl-POE-Component-Resolver.spec
+++ b/perl-POE-Component-Resolver.spec
@@ -1,11 +1,13 @@
 Name:           perl-POE-Component-Resolver
 Version:        0.917
-Release:        5%{?dist}
+Release:        6%{?dist}
 Summary:        Non-blocking getaddrinfo() resolver
 License:        GPL+ or Artistic
 Group:          Development/Libraries
 URL:            http://search.cpan.org/dist/POE-Component-Resolver/
 Source0:        http://www.cpan.org/authors/id/R/RC/RCAPUTO/POE-Component-Resolver-%{version}.tar.gz
+# Socket::GetAddrInfo 0.22+ doesn't support API tags
+Patch0:         POE-Component-Resolver-0.917-getaddrinfo-api.patch
 BuildArch:      noarch
 BuildRequires:  perl(base)
 BuildRequires:  perl(Carp)
@@ -40,6 +42,7 @@ in subprocesses where they're permitted to block as long as necessary.
 
 %prep
 %setup -q -n POE-Component-Resolver-%{version}
+%patch0 -p1
 
 %build
 perl Makefile.PL INSTALLDIRS=vendor
@@ -62,6 +65,9 @@ make test
 %{_mandir}/man3/*
 
 %changelog
+* Thu Jul 25 2013 Petr Šabata <contyk at redhat.com> - 0.917-6
+- Socket::GetAddrInfo 0.22+ doesn't support API tags, let's fix it
+
 * Thu Jul 25 2013 Petr Pisar <ppisar at redhat.com> - 0.917-5
 - Perl 5.18 rebuild