[libnet-rblclient-perl] 06/15: Add patch to set RD bit for Net::DNS 1.01 compatibility.

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libnet-rblclient-perl.

commit a6c967900ff883b087af65bbc984fedd76f8bcd6
Author: gregor herrmann <gregoa at debian.org>
Date:   Fri Jul 15 15:55:37 2016 +0200

    Add patch to set RD bit for Net::DNS 1.01 compatibility.
    
    Thanks: Andrzej A. Filip for the bug report and the patch sketch.
    Closes: #821412
---
 debian/patches/RD.patch | 23 +++++++++++++++++++++++
 debian/patches/series   |  1 +
 2 files changed, 24 insertions(+)

diff --git a/debian/patches/RD.patch b/debian/patches/RD.patch
new file mode 100644
index 0000000..60998a7
--- /dev/null
+++ b/debian/patches/RD.patch
@@ -0,0 +1,23 @@
+Description: Set RD bit as required by Net::DNS 1.01
+Origin: vendor
+Bug-Debian: https://bugs.debian.org/821412
+Author: "Andrzej A. Filip" <anfi at onet.eu>
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2016-07-15
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=116181
+Bug: https://rt.cpan.org/Ticket/Display.html?id=116181
+
+--- a/RBLClient.pm
++++ b/RBLClient.pm
+@@ -132,9 +132,11 @@
+     my($qip, $list) = @_;
+     my($packet, $error) = new Net::DNS::Packet my $fqdn = "$qip.$list", 'A';
+     die "Cannot build DNS query for $fqdn, type A: $error" unless $packet;
++    $packet->header->rd(1);
+     return $packet->data unless wantarray;
+     (my $txt_packet, $error) = new Net::DNS::Packet $fqdn, 'TXT', 'IN';
+     die "Cannot build DNS query for $fqdn, type TXT: $error" unless $txt_packet;
++    $txt_packet->header->rd(1);
+     $packet->data, $txt_packet->data;
+ }
+ 
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..fd5ce3a
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+RD.patch

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