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

Default PERL_ANYEVENT_MAX_OUTSTANDING_DNS to the same as the AnyEvent library default if setting('dns')->{max_outstanding} not defined

Browse Source
This commit is contained in:
Eric A. Miller
2013-10-15 22:51:38 -04:00
parent ac1b77d44a
commit 325e59bade
2 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -26,6 +26,10 @@ use Role::Tiny::With;
use MCE::Signal '-setpgrp'; use MCE::Signal '-setpgrp';
use MCE; 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 # set temporary MCE files' location in home directory
my $home = ($ENV{NETDISCO_HOME} || $ENV{HOME}); my $home = ($ENV{NETDISCO_HOME} || $ENV{HOME});
my $tmp_dir = ($ENV{NETDISCO_TEMP} || dir($home, 'tmp')); my $tmp_dir = ($ENV{NETDISCO_TEMP} || dir($home, 'tmp'));

4
Netdisco/bin/netdisco-do
View File

@@ -53,6 +53,10 @@ $CONFIG->{log} = ($debug ? 'debug' : 'info');
# reconfigure logging to force console output # reconfigure logging to force console output
Dancer::Logger->init('console', $CONFIG); 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 # for the in-memory local job queue
schema('daemon')->deploy; schema('daemon')->deploy;