do not attempt DNS resolution on bad IPs

This commit is contained in:
Oliver Gorwits
2014-09-03 12:57:15 +00:00
parent d32024a782
commit 1e90fea47a
2 changed files with 3 additions and 1 deletions

View File

@@ -8,6 +8,7 @@
[BUG FIXES] [BUG FIXES]
* Skip device aliases which cannot be parsed as IPs * Skip device aliases which cannot be parsed as IPs
* [#137] do not attempt DNS resolution on bad IPs
2.029006 - 2014-08-25 2.029006 - 2014-08-25

View File

@@ -166,7 +166,8 @@ sub no_resolve {
my $config = setting('dns')->{no} || []; my $config = setting('dns')->{no} || [];
return 0 if not scalar @$config; 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) { foreach my $item (@$config) {
my $c_ip = NetAddr::IP::Lite->new($item) my $c_ip = NetAddr::IP::Lite->new($item)