summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-01-21 20:31:49 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-01-21 20:31:49 +0000
commiteae0589a5d1a157f042fc734aa2189ee7105f385 (patch)
tree33b1b6ead0861bb00d4f8860098682a08232f3a6 /perl-install/install_steps_interactive.pm
parenta5665d34c0a14fc6d63c5d2698301902d8636c65 (diff)
downloaddrakx-backup-do-not-use-eae0589a5d1a157f042fc734aa2189ee7105f385.tar
drakx-backup-do-not-use-eae0589a5d1a157f042fc734aa2189ee7105f385.tar.gz
drakx-backup-do-not-use-eae0589a5d1a157f042fc734aa2189ee7105f385.tar.bz2
drakx-backup-do-not-use-eae0589a5d1a157f042fc734aa2189ee7105f385.tar.xz
drakx-backup-do-not-use-eae0589a5d1a157f042fc734aa2189ee7105f385.zip
cleanup, update, enhance security level choice
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm15
1 files changed, 5 insertions, 10 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index b174ac857..f4f68f592 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1236,16 +1236,11 @@ try to force installation even if that destroys the first partition?"));
sub miscellaneous {
my ($o, $clicked) = @_;
- my %l = (
- 2 => _("Low"),
- 3 => _("Medium"),
- 4 => _("High"),
- );
- if ($::expert || $clicked) {
- $ENV{SECURE_LEVEL} = $o->{security} =
- $o->ask_from_listf('', _("Choose security level"), sub { $l{$_[0]} }, [ ikeys %l ], $o->{security})
- or return;
- }
+
+ any::choose_security_level($o, \$o->{security}, \$o->{libsafe}) or return;
+
+ any::config_libsafe($o->{prefix}, $o->{libsafe});
+
install_steps::miscellaneous($o);
}