Bug#891587: stretch-pu: package jdresolve/0.6.1-5.1~deb9u1

[Adrian Bunk <bunk@debian.org>]

Package: release.debian.org
Severity: normal
Tags: stretch
User: release.debian.org@packages.debian.org
Usertags: pu

   * Fix breakage with libnet-dns-perl in jessie and later,
     thanks to Klaus Rein for reporting the bug and
     Matt Johnston for forwarding the fix. (Closes: #801331)

diff -u jdresolve-0.6.1/debian/changelog jdresolve-0.6.1/debian/changelog
--- jdresolve-0.6.1/debian/changelog
+++ jdresolve-0.6.1/debian/changelog
@@ -1,3 +1,19 @@
+jdresolve (0.6.1-5.1~deb9u1) stretch; urgency=medium
+
+  * Non-maintainer upload.
+  * Rebuild for stretch.
+
+ -- Adrian Bunk <bunk@debian.org>  Mon, 26 Feb 2018 22:29:30 +0200
+
+jdresolve (0.6.1-5.1) unstable; urgency=high
+
+  * Non-maintainer upload.
+  * Fix breakage with libnet-dns-perl in jessie and later,
+    thanks to Klaus Rein for reporting the bug and
+    Matt Johnston for forwarding the fix. (Closes: #801331)
+
+ -- Adrian Bunk <bunk@debian.org>  Thu, 04 Jan 2018 20:21:09 +0200
+
 jdresolve (0.6.1-5) unstable; urgency=medium
 
   * debian/: merge packaging changes from Ubuntu. (Thanks Logan Rosen)
diff -u jdresolve-0.6.1/jdresolve jdresolve-0.6.1/jdresolve
--- jdresolve-0.6.1/jdresolve
+++ jdresolve-0.6.1/jdresolve
@@ -857,7 +857,12 @@
 				# For each DNS answer, check the data received
 				if ($type eq 'H') {
 					if (defined $_->{ptrdname}) {
+						if ($_->isa('Net::DNS::RR::PTR')) { 
+							# Fix for a new version of Net::DNS 
+							$hosts{$query}{NAME} = $_->rdatastr();
+						} else {
 						$hosts{$query}{NAME} = $_->{ptrdname};
+						}
 						$hosts{$query}{RESOLVED} = 'N';
 
 						$resolved = 1;