Description: Fix log4perl init
Forwarded: yes
Author: dod
--- a/script/lcdconf2model.pl
+++ b/script/lcdconf2model.pl
@@ -44,8 +44,21 @@
 
 # initialise logs for Config;:Model
 use Log::Log4perl qw(:easy);
+
 my $log4perl_user_conf_file = $ENV{HOME} . '/.log4config-model';
-Log::Log4perl::init($log4perl_user_conf_file);
+my $fallback_conf           = << 'EOC';
+log4perl.logger=WARN, Screen
+log4perl.appender.Screen        = Log::Log4perl::Appender::Screen
+log4perl.appender.Screen.stderr = 0
+log4perl.appender.Screen.layout = Log::Log4perl::Layout::PatternLayout
+log4perl.appender.Screen.layout.ConversionPattern = %d %m %n
+EOC
+
+my $log4perl_conf =
+      -e $log4perl_user_conf_file ? $log4perl_user_conf_file
+    :                               \$fallback_conf;
+
+Log::Log4perl::init($log4perl_conf);
 
 say "Building lcdproc model from upstream LCDd.conf file..." ;
 
