summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/install/steps.pm12
2 files changed, 8 insertions, 5 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 8aa4449ce..8781bd986 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -2,6 +2,7 @@
- partitioning wizard:
o allow using existing partition on all disks (#54478)
- make sure suggests are disabled in truly minimal install
+- do not attempt to configure autologin if CAT_X is not selected
Version 12.64 - 12 October 2009
diff --git a/perl-install/install/steps.pm b/perl-install/install/steps.pm
index 5123e3bdc..5ee5a5640 100644
--- a/perl-install/install/steps.pm
+++ b/perl-install/install/steps.pm
@@ -715,11 +715,13 @@ sub addUser {
any::add_users($users, $o->{authentication});
- my $autologin = any::get_autologin();
- $autologin->{user} = $o->{autologin};
- $autologin->{desktop} = $o->{desktop} if $o->{desktop};
- $autologin->{dm} = $o->{dm} if $o->{dm};
- any::set_autologin($o->do_pkgs, $autologin);
+ if ($o->{rpmsrate_flags_chosen}{CAT_X}) {
+ my $autologin = any::get_autologin();
+ $autologin->{user} = $o->{autologin};
+ $autologin->{desktop} = $o->{desktop} if $o->{desktop};
+ $autologin->{dm} = $o->{dm} if $o->{dm};
+ any::set_autologin($o->do_pkgs, $autologin);
+ }
install::any::disable_user_view() if @$users == ();
}