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

@@ -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});