diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-01-21 20:31:49 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-01-21 20:31:49 +0000 |
| commit | eae0589a5d1a157f042fc734aa2189ee7105f385 (patch) | |
| tree | 33b1b6ead0861bb00d4f8860098682a08232f3a6 /perl-install/install_steps_interactive.pm | |
| parent | a5665d34c0a14fc6d63c5d2698301902d8636c65 (diff) | |
| download | drakx-eae0589a5d1a157f042fc734aa2189ee7105f385.tar drakx-eae0589a5d1a157f042fc734aa2189ee7105f385.tar.gz drakx-eae0589a5d1a157f042fc734aa2189ee7105f385.tar.bz2 drakx-eae0589a5d1a157f042fc734aa2189ee7105f385.tar.xz drakx-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.pm | 15 |
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); } |