diff options
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]))); |