From 397b67bb86b6cc5109c6583c8efd8bfc06514055 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 12 Aug 2004 01:32:32 +0000
Subject: cleanup

---
 perl-install/security/msec.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'perl-install/security')

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";
-- 
cgit v1.2.1