diff options
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 871aca09a..723868e6e 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -924,6 +924,15 @@ sub set_autologin { Session => "$session_basename.desktop", User => $autologin->{user}, )) } if -e $sddm_conffile; + if ($::isInstall && $session_basename) { + #- This function is called by the installer even if autologin has not + #- been requested. Do this to select the default session on first boot. + $sddm_conffile = "$::prefix/var/lib/sddm/state.conf"; + my $session_dir = $session_files{$autologin->{desktop}}->{dir}; + eval { common::update_gnomekderc($sddm_conffile, 'Last' => ( + Session => "$session_dir/$session_basename.desktop", + )) }; + } #- Configure GDM my $gdm_conffile = "$::prefix/etc/X11/gdm/custom.conf"; |