diff options
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/install2.pm | 1 | ||||
-rw-r--r-- | perl-install/install_steps.pm | 4 |
2 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 9efa3358a..a15b089ca 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -38,7 +38,6 @@ $o = $::o = { mkbootdisk => 0, #- no mkbootdisk if 0 or undef, find a floppy with 1, or fd1 #- packages => [ qw() ], partitioning => { clearall => 0, eraseBadPartitions => 0, auto_allocate => 0 }, #-, readonly => 0 }, - security => 2, authentication => { md5 => 1, shadow => 1 }, lang => 'en_US', isUpgrade => 0, diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index c36d6589d..838fdde6b 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -934,7 +934,9 @@ sub miscellaneousBefore { my %s = getVarsFromSh("$o->{prefix}/etc/sysconfig/system"); $o->{miscellaneous}{HDPARM} = $s{HDPARM} if exists $s{HDPARM}; - $o->{security} = any::get_secure_level($o->{prefix}) || $o->{security}; + $o->{security} ||= any::get_secure_level($o->{prefix}) || ($o->{meta_class} eq 'server' ? 3 : 2); + + log::l("security $o->{security}"); add2hash_($o->{miscellaneous} ||= {}, { numlock => !detect_devices::isLaptop() }); } |