Do not use private Net::DNS API removed in Net-DNS-0.75

Net-DNS-Resolver-Programmable-v0.003-new-net-dns.patch

@@ -0,0 +1,23 @@
+Description: deal with changes in Net::DNS >= 0.75
+Origin: CPAN RT
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=95901
+Bug-Debian: https://bugs.debian.org/752988
+Author: Willen <NLNETLABS@cpan.org>
+Reviewed-by: gregor herrmann <gregoa@debian.org>
+Last-Update: 2014-06-29
+
+--- a/lib/Net/DNS/Resolver/Programmable.pm
++++ b/lib/Net/DNS/Resolver/Programmable.pm
+@@ -204,8 +204,10 @@
+     if (defined(my $resolver_code = $self->{resolver_code})) {
+         ($result, $aa, @answer_rrs) = $resolver_code->($domain, $rr_type, $class);
+     }
+-    
+-    if (not defined($result) or defined($Net::DNS::rcodesbyname{$result})) {
++
++    if (not defined($result)
++         or defined($Net::DNS::rcodesbyname{$result})
++         or defined($Net::DNS::Parameters::rcodebyname{$result})) {
+         # Valid RCODE, return a packet:
+         
+         $aa     = TRUE      if not defined($aa);

perl-Net-DNS-Resolver-Programmable.spec

@@ -1,11 +1,14 @@
 Name:           perl-Net-DNS-Resolver-Programmable
 Version:        0.003
-Release:        18%{?dist}
+Release:        19%{?dist}
 Summary:        Programmable DNS resolver class for offline emulation of DNS
 License:        GPLv2+ or Artistic
 Group:          Development/Libraries
 URL:            http://search.cpan.org/dist/Net-DNS-Resolver-Programmable/
 Source0:        http://www.cpan.org/authors/id/J/JM/JMEHNLE/net-dns-resolver-programmable/Net-DNS-Resolver-Programmable-v%{version}.tar.gz
+# Do not use private Net::DNS API removed in Net-DNS-0.75, bug #1099382,
+# CPAN RT#95901
+Patch0:         Net-DNS-Resolver-Programmable-v0.003-new-net-dns.patch
 BuildArch:      noarch
 BuildRequires:  perl(Module::Build)
 Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
@@ -19,6 +22,7 @@ on the fly.
 
 %prep
 %setup -q -n Net-DNS-Resolver-Programmable-v%{version}
+%patch0 -p1
 
 %build
 %{__perl} Build.PL installdirs=vendor
@@ -37,6 +41,9 @@ on the fly.
 %{_mandir}/man3/*
 
 %changelog
+* Thu Jul 24 2014 Petr Pisar <ppisar@redhat.com> - 0.003-19
+- Do not use private Net::DNS API removed in Net-DNS-0.75 (bug #1099382)
+
 * Sat Jun 07 2014 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 0.003-18
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_21_Mass_Rebuild