do not attempt DNS resolution on bad IPs

2014-09-03 12:57:15 +00:00
parent d32024a782
commit 1e90fea47a
2 changed files with 3 additions and 1 deletions
--- a/Netdisco/lib/App/Netdisco/Util/DNS.pm
+++ b/Netdisco/lib/App/Netdisco/Util/DNS.pm
@@ -166,7 +166,8 @@ sub no_resolve {
    my $config = setting('dns')->{no} || [];
    return 0 if not scalar @$config;

-    my $addr = NetAddr::IP::Lite->new($ip);
+    my $addr = NetAddr::IP::Lite->new($ip)
+      or return 1;

    foreach my $item (@$config) {
        my $c_ip = NetAddr::IP::Lite->new($item)