do not attempt DNS resolution on bad IPs
This commit is contained in:
@@ -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
|
||||||
|
|
||||||
|
|||||||
@@ -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)
|
||||||
|
|||||||
Reference in New Issue
Block a user