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

queiten PERL_ANYEVENT_HOSTS undef error

Browse Source
This commit is contained in:
Oliver Gorwits
2017-06-27 22:07:00 +01:00
parent 6fbf5b4ca7
commit 828fee2d9f
2 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Changes
View File

@@ -3,6 +3,7 @@
[BUG FIXES]
* #322 cease use of Sys::Proctitle
* queiten PERL_ANYEVENT_HOSTS undef error
2.036002 - 2017-06-26

17
lib/App/Netdisco/Configuration.pm
View File

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