summaryrefslogtreecommitdiffstats
path: root/perl-install/security
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-08-12 01:32:32 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-08-12 01:32:32 +0000
commit397b67bb86b6cc5109c6583c8efd8bfc06514055 (patch)
treef417838af2906a6598f426287ae6542d272ad8b7 /perl-install/security
parent568f788ae12bcc992f65086e0952263c79479765 (diff)
downloaddrakx-backup-do-not-use-397b67bb86b6cc5109c6583c8efd8bfc06514055.tar
drakx-backup-do-not-use-397b67bb86b6cc5109c6583c8efd8bfc06514055.tar.gz
drakx-backup-do-not-use-397b67bb86b6cc5109c6583c8efd8bfc06514055.tar.bz2
drakx-backup-do-not-use-397b67bb86b6cc5109c6583c8efd8bfc06514055.tar.xz
drakx-backup-do-not-use-397b67bb86b6cc5109c6583c8efd8bfc06514055.zip
cleanup
Diffstat (limited to 'perl-install/security')
-rw-r--r--perl-install/security/msec.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/security/msec.pm b/perl-install/security/msec.pm
index b96b0cbe2..7b07f1c30 100644
--- a/perl-install/security/msec.pm
+++ b/perl-install/security/msec.pm
@@ -160,15 +160,14 @@ sub apply_checks {
sub reload {
my ($msec) = @_;
- my $num_level = 0;
require security::level;
- $num_level ||= security::level::get();
+ my $num_level = security::level::get();
$msec->{functions}{defaults_file} = "$::prefix/usr/share/msec/level.$num_level";
$msec->{functions}{default} = { $msec->load_defaults('functions') };
}
sub new {
- my $type = shift;
+ my ($type) = @_;
my $msec = bless {}, $type;
$msec->{functions}{values_file} = "$::prefix/etc/security/msec/level.local";