From e4280f1700c119d69ff58472e215dd68b836416a Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Thu, 14 Jan 2016 21:30:03 -0700
Subject: Fix a bug where part of the DNS routines could be called with an
 undefined value, and then go kaboom

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

(limited to 'lib/ASM')

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