diff options
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); } |