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

Close socket upon completion of async DNS resolution

Browse Source
This commit is contained in:
Eric A. Miller
2014-07-15 22:52:25 -04:00
parent 29f4231be9
commit c3b34b1a83
2 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Netdisco/Changes
View File

@@ -7,6 +7,7 @@
[BUG FIXES] [BUG FIXES]
* No default for interactives made daemon die (H. Weber) * No default for interactives made daemon die (H. Weber)
* Close socket upon completion of async DNS resolution
2.028001 - 2014-07-13 2.028001 - 2014-07-13

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

@@ -103,7 +103,6 @@ addresses which resolved.
sub hostnames_resolve_async { sub hostnames_resolve_async {
my $ips = shift; my $ips = shift;
my $resolver = AnyEvent::DNS->new();
my %HOSTS = (); my %HOSTS = ();
$HOSTS{$_} = [ map { [ $_ ? (format_address $_->[0]) : '' ] } $HOSTS{$_} = [ map { [ $_ ? (format_address $_->[0]) : '' ] }
@@ -136,6 +135,9 @@ sub hostnames_resolve_async {
# Wait for the resolver to perform all resolutions # Wait for the resolver to perform all resolutions
$done->recv; $done->recv;
# Remove reference to resolver so that we close sockets
undef $AnyEvent::DNS::RESOLVER if $AnyEvent::DNS::RESOLVER;
return $ips; return $ips;
} }