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

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

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;