From 6f0f5a7f1ad7409c92b36feeaa543457fc321f83 Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Sun, 21 Feb 2016 01:47:19 -0700
Subject: Clean up some warnings being generated for unknown reasons pertaining
 to DNS issues

---
 lib/ASM/Util.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/ASM/Util.pm b/lib/ASM/Util.pm
index 4b0137d..8e3fe8c 100644
--- a/lib/ASM/Util.pm
+++ b/lib/ASM/Util.pm
@@ -267,7 +267,9 @@ sub stripResp
     return undef;
   }
   my @answer = $response->answer;
-  if ($response->{header}->{rcode} ne "NOERROR") {
+  if ((!defined($response->{header})) ||
+      (!defined($response->{header}->{rcode})) ||
+      ($response->{header}->{rcode} ne "NOERROR")) {
     dprint($module, Dumper($response), 'dns');
     return undef;
   }
-- 
cgit v1.2.3