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

Quieten AnyEvent::DNS::EtcHosts check on PERL_ANYEVENT_HOSTS env var

Browse Source
This commit is contained in:
Oliver Gorwits
2014-02-09 12:53:22 +00:00
parent 31e8e29dff
commit d1b707da31
6 changed files with 18 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Netdisco/bin/netdisco-daemon-fg
View File

@@ -26,9 +26,11 @@ use Role::Tiny::With;
use MCE::Signal '-setpgrp';
use MCE;
# set max outstanding requests for AnyEvent::DNS
# set defaults for AnyEvent::DNS
local $ENV{'PERL_ANYEVENT_MAX_OUTSTANDING_DNS'}
= setting('dns')->{max_outstanding} || 10;
local $ENV{'PERL_ANYEVENT_HOSTS'}
= setting('dns')->{hosts_file} || '/etc/hosts';
# set temporary MCE files' location in home directory
my $home = ($ENV{NETDISCO_HOME} || $ENV{HOME});

2
Netdisco/bin/netdisco-do
View File

@@ -58,6 +58,8 @@ Dancer::Logger->init('console', $CONFIG);
# set max outstanding requests for AnyEvent::DNS
local $ENV{'PERL_ANYEVENT_MAX_OUTSTANDING_DNS'}
= setting('dns')->{max_outstanding} || 10;
local $ENV{'PERL_ANYEVENT_HOSTS'}
= setting('dns')->{hosts_file} || '/etc/hosts';
# for the in-memory local job queue
schema('daemon')->deploy;