diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 0bb1a6dd3..8bd76ea71 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -259,7 +259,8 @@ sub get_autologin { my ($prefix, $o) = @_; my %l = getVarsFromSh("$prefix/etc/sysconfig/autologin"); $o->{autologin} ||= $l{USER}; - $o->{desktop} ||= map { chomp; $_ } cat_("$prefix/etc/sysconfig/desktop"); + %l = getVarsFromSh("$prefix/etc/sysconfig/desktop"); + $o->{desktop} ||= $l{DESKTOP}; } sub set_autologin { |