summaryrefslogtreecommitdiffstats
path: root/perl-install/security
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/security')
-rw-r--r--perl-install/security/level.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/security/level.pm b/perl-install/security/level.pm
index 51fe4b853..b12caf19e 100644
--- a/perl-install/security/level.pm
+++ b/perl-install/security/level.pm
@@ -32,7 +32,7 @@ sub get_common_list() { map { to_string($_) } (1, 2, 3, 4, 5) }
sub get() {
my $level = ${{ getVarsFromSh("$::prefix/etc/security/msec/security.conf") }}{BASE_LEVEL} || #- 2009.1 msec
- 1;
+ "standard";
from_lowlevel_string($level);
}
@@ -42,7 +42,7 @@ sub set {
# use Standard level if specified level is out of range
$security = 1 if $security > $#levelnames;
run_program::rooted($::prefix, 'msec', '-q', '-f', @levelnames[$security]);
- run_program::rooted($::prefix, 'msecperms', '-q', '-e', '-f', @levelnames[$security]);
+ run_program::rooted($::prefix, 'msecperms', '-q', '-e', @levelnames[$security]);
}
sub level_choose {