From bf77a2ae9a0d80576082d9cbc307cb1562e24192 Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Wed, 13 Jan 2016 21:36:04 -0700
Subject: Speed up DNS lookups

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

diff --git a/lib/ASM/Util.pm b/lib/ASM/Util.pm
index ed630ed..1f0b4d9 100644
--- a/lib/ASM/Util.pm
+++ b/lib/ASM/Util.pm
@@ -250,6 +250,7 @@ sub getHostIP
     my $host = join('.', unpack('C4', pack('N', (hex($splitip[6] . $splitip[7])^hex('ffffffff')))));
     return dottedQuadToInt(undef, $host);
   }
+  $ENV{RES_OPTIONS} = "timeout:1 attempts:1";
   my @resolve = gethostbyname($host);
   return unless @resolve;
   return dottedQuadToInt(undef, join('.', unpack('C4', $resolve[4])));
-- 
cgit v1.2.3