From 0e8edc8f8b1e178d99c342dd1b15510f75c4170f Mon Sep 17 00:00:00 2001
From: Duane Wessels <dwessels@verisign.com>
Date: Thu, 6 Sep 2018 15:44:57 -0700
Subject: [PATCH] Surely $header->qdcount($ancount) etc is a copy/paste typo

---
 lib/Net/DNS/Fingerprint.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/Net/DNS/Fingerprint.pm b/lib/Net/DNS/Fingerprint.pm
index 624f73c..a03d103 100644
--- a/lib/Net/DNS/Fingerprint.pm
+++ b/lib/Net/DNS/Fingerprint.pm
@@ -2184,9 +2184,9 @@ sub fp2header {
 
     my ($qdcount, $ancount, $nscount, $arcount) = @list;
     $header->qdcount($qdcount) unless $qdcount == $header->qdcount;
-    $header->qdcount($ancount) unless $ancount == $header->ancount;
-    $header->qdcount($nscount) unless $nscount == $header->nscount;
-    $header->qdcount($arcount) unless $arcount == $header->arcount;
+    $header->ancount($ancount) unless $ancount == $header->ancount;
+    $header->nscount($nscount) unless $nscount == $header->nscount;
+    $header->arcount($arcount) unless $arcount == $header->arcount;
 }
 
 sub probe {