From 325e59bade83f3ed10d8eeff23298727ca17132c Mon Sep 17 00:00:00 2001
From: "Eric A. Miller" <emiller@cpan.org>
Date: Tue, 15 Oct 2013 22:51:38 -0400
Subject: [PATCH] Default PERL_ANYEVENT_MAX_OUTSTANDING_DNS to the same as the
 AnyEvent library default if setting('dns')->{max_outstanding} not defined

---
 Netdisco/bin/netdisco-daemon-fg | 4 ++++
 Netdisco/bin/netdisco-do        | 4 ++++
 2 files changed, 8 insertions(+)

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;