commit 0e0e0d9b472ef605ae6098e885ce11934e9a0814
Author: Petr Písař <ppisar@xxxxxxxxxx>
Date: Thu Jul 24 14:53:15 2014 +0200
Do not use private Net::DNS API removed in Net-DNS-0.75
...-Resolver-Programmable-v0.003-new-net-dns.patch | 23 ++++++++++++++++++++
perl-Net-DNS-Resolver-Programmable.spec | 9 +++++++-
2 files changed, 31 insertions(+), 1 deletions(-)
---
diff --git a/Net-DNS-Resolver-Programmable-v0.003-new-net-dns.patch b/Net-DNS-Resolver-Programmable-v0.003-new-net-dns.patch
new file mode 100644
index 0000000..acdaebb
--- /dev/null
+++ b/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@xxxxxxxx>
+Reviewed-by: gregor herrmann <gregoa@xxxxxxxxxx>
+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);
diff --git a/perl-Net-DNS-Resolver-Programmable.spec b/perl-Net-DNS-Resolver-Programmable.spec
index f2f6668..de176e9 100644
--- a/perl-Net-DNS-Resolver-Programmable.spec
+++ b/perl-Net-DNS-Resolver-Programmable.spec
@@ -1,11 +1,14 @@
Name: perl-Net-DNS-Resolver-Programmable
Version: 0.003
-Release: 17%{?dist}
+Release: 18%{?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@xxxxxxxxxx> - 0.003-18
+- Do not use private Net::DNS API removed in Net-DNS-0.75 (bug #1099382)
+
* Sat Aug 03 2013 Fedora Release Engineering <rel-eng@xxxxxxxxxxxxxxxxxxxxxxx> - 0.003-17
- Rebuilt for https://fedoraproject.org/wiki/Fedora_20_Mass_Rebuild
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@xxxxxxxxxxxxxxxxxxxxxxx
https://admin.fedoraproject.org/mailman/listinfo/perl-devel
