diff options
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 9b47bcf56..871aca09a 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -866,7 +866,10 @@ sub get_autologin() { my $lightdm_conffile = "$::prefix/etc/lightdm/lightdm.conf.d/50-mageia-autologin.conf"; my $lxdm_conffile = "$::prefix/etc/lxdm/lxdm.conf"; my $autologin_file = "$::prefix/etc/sysconfig/autologin"; - my $desktop = $desktop{DESKTOP} || first(session_names()); + my @session_names = session_names() if ! $desktop{DESKTOP}; + my $desktop = $desktop{DESKTOP} || + first(grep { $_ !~ /icewm/i } @session_names) || + first(grep { $_ =~ /icewm/i } @session_names); my $dm = basename(readlink("$::prefix/etc/systemd/system/display-manager.service")) =~ s/(.*)\.service/$1/r || desktop_to_dm($desktop) || |