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

Add patch to set RD bit for Net::DNS 1.01 compatibility.
a6c96790 · gregor herrmann · 2d0745b4 · a6c96790 · a6c96790
Commit a6c96790 authored 8 years ago by gregor herrmann
--- a/debian/patches/RD.patch
+++ b/debian/patches/RD.patch
+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@onet.eu>
+Reviewed-by: gregor herrmann <gregoa@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;
+ }
+ 
--- a/debian/patches/series
+++ b/debian/patches/series
+RD.patch