[libnet-dns-resolver-programmable-perl] 01/07: Add patch from CPAN RT to handle newer versions of Net::DNS.

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository libnet-dns-resolver-programmable-perl.

commit fc6a4bafc7c5d0395f379977456d2c1a51e3af50
Author: gregor herrmann <gregoa at debian.org>
Date:   Sun Jun 29 16:30:08 2014 +0200

    Add patch from CPAN RT to handle newer versions of Net::DNS.
    
    Closes: #752988
---
 debian/patches/new-net-dns.patch | 23 +++++++++++++++++++++++
 debian/patches/series            |  1 +
 2 files changed, 24 insertions(+)

diff --git a/debian/patches/new-net-dns.patch b/debian/patches/new-net-dns.patch
new file mode 100644
index 0000000..acdaebb
--- /dev/null
+++ b/debian/patches/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 at cpan.org>
+Reviewed-by: gregor herrmann <gregoa at 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);
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..8af8457
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+new-net-dns.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dns-resolver-programmable-perl.git