Merge pull request #1 from hirobanex/master

Agent::DNSの$hostにArrayRefを入れるように修正しました
tokuhirom · May 16, 2011 · 1b1f8e9 · 1b1f8e9
2 parents 329b1d9 + 8e35013
commit 1b1f8e9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/App/MadEye/Plugin/Agent/DNS.pm b/lib/App/MadEye/Plugin/Agent/DNS.pm
@@ -14,7 +14,7 @@ sub is_dead {
 
     my $dns = Net::DNS::Resolver->new(
         recurse     => 0,
-        nameservers => [$host],
+        nameservers => ref($host) eq 'ARRAY' ? $host :  [$host],
     );
     $dns->tcp_timeout($timeout);
     $dns->udp_timeout($timeout);