diff -Nru net-dns-fingerprint-0.9.3/debian/changelog net-dns-fingerprint-0.9.3/debian/changelog
--- net-dns-fingerprint-0.9.3/debian/changelog	2012-03-10 15:18:36.000000000 +0000
+++ net-dns-fingerprint-0.9.3/debian/changelog	2013-05-15 18:44:56.000000000 +0000
@@ -1,3 +1,9 @@
+net-dns-fingerprint (0.9.3-5) unstable; urgency=low
+
+  * debian/patches/05-Fingerprint.pm-680077.patch: Closes: #680077
+
+ -- Thorsten Alteholz <debian@alteholz.de>  Wed, 15 May 2013 18:00:00 +0200
+
 net-dns-fingerprint (0.9.3-4) unstable; urgency=low
 
   * debian/rules: use only one changelog (Closes: #614707)
diff -Nru net-dns-fingerprint-0.9.3/debian/patches/05-Fingerprint.pm-680077.patch net-dns-fingerprint-0.9.3/debian/patches/05-Fingerprint.pm-680077.patch
--- net-dns-fingerprint-0.9.3/debian/patches/05-Fingerprint.pm-680077.patch	1970-01-01 00:00:00.000000000 +0000
+++ net-dns-fingerprint-0.9.3/debian/patches/05-Fingerprint.pm-680077.patch	2013-05-15 19:09:42.000000000 +0000
@@ -0,0 +1,45 @@
+Description: take care of missing Net::DNS::Header::data
+Author: mainly: Duane Wessels dwessels at verisign.com 
+Index: net-dns-fingerprint/Fingerprint.pm
+===================================================================
+--- net-dns-fingerprint.orig/Fingerprint.pm	2013-05-15 20:37:16.000000000 +0200
++++ net-dns-fingerprint/Fingerprint.pm	2013-05-15 21:04:28.000000000 +0200
+@@ -632,11 +632,11 @@
+     return join(",", @list);
+ }
+ 
++
+ sub fp2header
+ {
+     my @list = split(/,/, shift);
+-
+-    my $header = Net::DNS::Header->new;
++    my $header = shift;
+ 
+     $header->qr(shift @list);
+     $header->opcode(shift @list);
+@@ -651,8 +651,6 @@
+     $header->ancount(shift @list);
+     $header->nscount(shift @list);
+     $header->arcount(shift @list);
+-
+-    return $header;
+ }
+ 
+ sub probe
+@@ -664,9 +662,13 @@
+     my $qheader = shift;
+     my @qstring = split(/ /, shift);
+ 
+-    my $header = fp2header($qheader);
++    #XXX original, now wrong: my $packet = Net::DNS::Packet->new(\$header->data);
++    # next try obtained from:
++    # https://lists.verisignlabs.com/pipermail/fpdns-user/2012-November/000026.html
++    # does not work either: my $packet = Net::DNS::Packet->new(\$header->encode);
++    my $packet = new Net::DNS::Packet;
++    fp2header($qheader, $packet->header);
+ 
+-    my $packet = Net::DNS::Packet->new(\$header->data);
+     $packet->push("question", Net::DNS::Question->new(@qstring));
+ 
+     if ($self->{debug}) {
diff -Nru net-dns-fingerprint-0.9.3/debian/patches/series net-dns-fingerprint-0.9.3/debian/patches/series
--- net-dns-fingerprint-0.9.3/debian/patches/series	2012-03-10 14:27:35.000000000 +0000
+++ net-dns-fingerprint-0.9.3/debian/patches/series	2013-05-15 18:37:34.000000000 +0000
@@ -2,3 +2,4 @@
 02-apps-fpdns.patch
 03-apps-fpdns-548307.patch
 04-Fingerprint.pm-282096.patch
+05-Fingerprint.pm-680077.patch