summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/any.pm12
1 files changed, 0 insertions, 12 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index a76cf12d2..daa8a6d22 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -825,14 +825,9 @@ sub ask_user {
ask_user_and_root($in, undef, $users, $security, %options);
}
-sub is_xguest_installed() {
- -e "$::prefix/etc/security/namespace.d/xguest.conf";
-}
-
sub ask_user_and_root {
my ($in, $superuser, $users, $security, %options) = @_;
- my $xguest = is_xguest_installed();
$options{needauser} ||= $security >= 3;
@@ -880,7 +875,6 @@ sub ask_user_and_root {
if_($::isInstall && $superuser, cancel => ''),
}, [
$superuser ? (
- { text => N("Enable guest account"), val => \$xguest, type => 'bool', advanced => 1 },
{ label => N("Set administrator (root) password"), title => 1 },
{ label => N("Password"), val => \$superuser->{password}, hidden => 1, alignment => 'right', weakness_check => 1,
focus => sub { 1 },
@@ -915,12 +909,6 @@ sub ask_user_and_root {
],
);
- if ($xguest && !is_xguest_installed()) {
- $in->do_pkgs->ensure_is_installed('xguest', '/etc/security/namespace.d/xguest.conf');
- } elsif (!$xguest && is_xguest_installed()) {
- $in->do_pkgs->remove('xguest') or return;
- }
-
$u->{groups} = [ grep { $groups{$_} } keys %groups ];
push @$users, $u if $u->{name};