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

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

View File

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