diff --git a/Netdisco/bin/netdisco-daemon-fg b/Netdisco/bin/netdisco-daemon-fg index 7773b26d..ff7ff87c 100755 --- a/Netdisco/bin/netdisco-daemon-fg +++ b/Netdisco/bin/netdisco-daemon-fg @@ -26,6 +26,10 @@ use Role::Tiny::With; use MCE::Signal '-setpgrp'; use MCE; +# set max outstanding requests for AnyEvent::DNS +local $ENV{'PERL_ANYEVENT_MAX_OUTSTANDING_DNS'} + = setting('dns')->{max_outstanding} || 10; + # set temporary MCE files' location in home directory my $home = ($ENV{NETDISCO_HOME} || $ENV{HOME}); my $tmp_dir = ($ENV{NETDISCO_TEMP} || dir($home, 'tmp')); diff --git a/Netdisco/bin/netdisco-do b/Netdisco/bin/netdisco-do index a201f651..6e2fd1f2 100755 --- a/Netdisco/bin/netdisco-do +++ b/Netdisco/bin/netdisco-do @@ -53,6 +53,10 @@ $CONFIG->{log} = ($debug ? 'debug' : 'info'); # reconfigure logging to force console output Dancer::Logger->init('console', $CONFIG); +# set max outstanding requests for AnyEvent::DNS +local $ENV{'PERL_ANYEVENT_MAX_OUTSTANDING_DNS'} + = setting('dns')->{max_outstanding} || 10; + # for the in-memory local job queue schema('daemon')->deploy;