From 828fee2d9fcee02edfddf407d7523298a7221cd7 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Tue, 27 Jun 2017 22:07:00 +0100
Subject: [PATCH] queiten PERL_ANYEVENT_HOSTS undef error

---
 Changes                           |  1 +
 lib/App/Netdisco/Configuration.pm | 17 ++++++++---------
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/Changes b/Changes
index d4706074..c9571fef 100644
--- a/Changes
+++ b/Changes
@@ -3,6 +3,7 @@
   [BUG FIXES]
 
   * #322 cease use of Sys::Proctitle
+  * queiten PERL_ANYEVENT_HOSTS undef error
 
 2.036002 - 2017-06-26
 
diff --git a/lib/App/Netdisco/Configuration.pm b/lib/App/Netdisco/Configuration.pm
index d32d63d7..2606f3cb 100644
--- a/lib/App/Netdisco/Configuration.pm
+++ b/lib/App/Netdisco/Configuration.pm
@@ -49,6 +49,9 @@ if (ref {} eq ref setting('database')) {
     }
 }
 
+# always set this
+$ENV{DBIC_TRACE_PROFILE} = 'console';
+
 # defaults for workers
 setting('workers')->{queue} ||= 'PostgreSQL';
 if (exists setting('workers')->{interactives}
@@ -66,6 +69,11 @@ if (exists setting('workers')->{interactives}
 setting('dns')->{hosts_file} ||= '/etc/hosts';
 setting('dns')->{no} ||= ['fe80::/64','169.254.0.0/16'];
 
+# set max outstanding requests for AnyEvent::DNS
+$ENV{'PERL_ANYEVENT_MAX_OUTSTANDING_DNS'}
+  = setting('dns')->{max_outstanding} || 50;
+$ENV{'PERL_ANYEVENT_HOSTS'} = setting('dns')->{hosts_file};
+
 # load /etc/hosts
 setting('dns')->{'ETCHOSTS'} = {};
 {
@@ -127,13 +135,4 @@ if (setting('reports') and ref {} eq ref setting('reports')) {
     }} keys %{ setting('reports') } ];
 }
 
-# set max outstanding requests for AnyEvent::DNS
-$ENV{'PERL_ANYEVENT_MAX_OUTSTANDING_DNS'}
-  = setting('dns')->{max_outstanding} || 50;
-$ENV{'PERL_ANYEVENT_HOSTS'}
-  = setting('dns')->{hosts_file} || '/etc/hosts';
-
-# always set this
-$ENV{DBIC_TRACE_PROFILE} = 'console';
-
 true;