Bug#801331: jdresolve: diff for NMU version 0.6.1-5.1

[Adrian Bunk]

Control: tags 801331 + pending

Dear maintainer,

I've prepared an NMU for jdresolve (versioned as 0.6.1-5.1) and uploaded 
it to DELAYED/5. Please feel free to tell me if I should cancel it.

cu
Adrian

-- 

       "Is there not promise of rain?" Ling Tan asked suddenly out
        of the darkness. There had been need of rain for many days.
       "Only a promise," Lao Er said.
                                       Pearl S. Buck - Dragon Seed


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,12 @@
+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 <b...@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;