diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index b9418dd21..fa3d9137d 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -653,16 +653,16 @@ sub get_autologin() { $desktop_to_dm{$desktop} || chomp_(run_program::rooted_get_stdout("/etc/X11/lookupdm")); $dm = $dm_canonical{$dm} if exists $dm_canonical{$dm}; - my $autologin = do { - if ($dm eq "gdm") { - my %conf = read_gnomekderc($gdm_file, 'daemon'); - text2bool($conf{AutomaticLoginEnable}) && $conf{AutomaticLogin}; - } else { # KDM / MdkKDM - my %conf = read_gnomekderc($kdm_file, 'X-:0-Core'); - text2bool($conf{AutoLoginEnable}) && $conf{AutoLoginUser}; - } - }; - { autologin => $autologin, desktop => $desktop }; + + my $autologin_user; + if ($dm eq "gdm") { + my %conf = read_gnomekderc($gdm_file, 'daemon'); + $autologin_user = text2bool($conf{AutomaticLoginEnable}) && $conf{AutomaticLogin}; + } else { # KDM / MdkKDM + my %conf = read_gnomekderc($kdm_file, 'X-:0-Core'); + $autologin_user = text2bool($conf{AutoLoginEnable}) && $conf{AutoLoginUser}; + } + { autologin => $autologin_user, desktop => $desktop }; } sub set_autologin { |