From b2b7472f3279ce50c5be7590522715782ad4313c Mon Sep 17 00:00:00 2001
From: Nicolas Salguero <nicolas.salguero@laposte.net>
Date: Thu, 1 Dec 2016 16:37:34 +0100
Subject: allow disabling autologin on LXDM (mga#17616)

---
 perl-install/NEWS   | 3 +++
 perl-install/any.pm | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 886bf0296..4202689dd 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- drakedm:
+  o allow disabling autologin on LXDM (mga#17616)
+
 Version 17.60 - 15 November 2016
 
 - diskdrake:
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 093994aed..2c4f421de 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -763,7 +763,7 @@ sub set_autologin {
     #- Configure LXDM
     my $lxdm_conffile = "$::prefix/etc/lxdm/lxdm.conf";
     eval { update_gnomekderc($lxdm_conffile, 'base' => (
-	if_($autologin->{user}, 'autologin' => '@' . $autologin->{user})
+	'autologin' => $autologin->{user} ? '@' . $autologin->{user} : ''
     ));
     if ($autologin->{user} && $autologin->{desktop} && !member($autologin->{desktop}, qw(default failsafe))) {
 	my $xsession_file = find {
-- 
cgit v1.2.1