diff options
| author |   William Heimbigner <william.heimbigner@gmail.com> | 2016-01-13 21:36:04 -0700 |
|---|---|---|
| committer | William Heimbigner <william.heimbigner@gmail.com> | 2016-01-13 21:36:04 -0700 |
| commit | bf77a2ae9a0d80576082d9cbc307cb1562e24192 (patch) | |
| tree | 42c707b89c6399dadf4539f5ac98f1950faab251 /lib/ASM/Util.pm | |
| parent | 9da45b371706a274d24201f1d87eaa5f433eb5e0 (diff) | |
Speed up DNS lookups
Diffstat (limited to 'lib/ASM/Util.pm')
| -rw-r--r-- | lib/ASM/Util.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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]))); |