Quieten AnyEvent::DNS::EtcHosts check on PERL_ANYEVENT_HOSTS env var
This commit is contained in:
@@ -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});
|
||||
|
||||
Reference in New Issue
Block a user