From 0444d06edb5fe7b1df85602b8854a5153aa194c3 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 15 Sep 2008 15:31:07 +0000 Subject: (level_choose) drop now unused 'libsafe' parameter --- perl-install/install/steps_interactive.pm | 2 +- perl-install/security/level.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm index 1831f4421..18e204f2f 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -980,7 +980,7 @@ sub summary { require security::level; my $security = $o->{security}; set_sec_level: - if (security::level::level_choose($o, \$security, \$o->{libsafe}, \$o->{security_user})) { + if (security::level::level_choose($o, \$security, \$o->{security_user})) { check_security_level($o, $security) or goto set_sec_level; $o->{security} = $security; install::any::set_security($o); diff --git a/perl-install/security/level.pm b/perl-install/security/level.pm index a411d66bf..0db951929 100644 --- a/perl-install/security/level.pm +++ b/perl-install/security/level.pm @@ -35,7 +35,7 @@ sub set { } sub level_choose { - my ($in, $security, $libsafe, $email) = @_; + my ($in, $security, $email) = @_; my %help = ( 0 => N("This level is to be used with care. It makes your system more easy to use, -- cgit v1.2.1