135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix bug with undef vals in hosts struct

Browse Source
This commit is contained in:
Oliver Gorwits
2014-04-21 21:18:26 +00:00
parent 67a0e6ca22
commit 6eefcf648b
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Netdisco/lib/App/Netdisco/Util/DNS.pm
View File

@@ -103,14 +103,13 @@ addresses which resolved.
sub hostnames_resolve_async { sub hostnames_resolve_async {
my $ips = shift; my $ips = shift;
my $resolver = AnyEvent::DNS->new(); my $resolver = AnyEvent::DNS->new();
my %HOSTS = (); my %HOSTS = ();
$HOSTS{$_} = [ map { [ format_address $_->[0] ] } $HOSTS{$_} = [ map { [ $_ ? (format_address $_->[0]) : '' ] }
@{$AnyEvent::DNS::EtcHosts::HOSTS{$_}} ] @{$AnyEvent::DNS::EtcHosts::HOSTS{$_}} ]
for keys %AnyEvent::DNS::EtcHosts::HOSTS; for keys %AnyEvent::DNS::EtcHosts::HOSTS;
# Set up the condvar # Set up the condvar
my $done = AE::cv; my $done = AE::cv;
$done->begin( sub { shift->send } ); $done->begin( sub { shift->send } );