From 97d2144c0844a682ae8d22cb9fb19d71a9648614 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 20 Nov 2002 08:46:44 +0000
Subject: cleanups

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

(limited to 'perl-install')

diff --git a/perl-install/security/msec.pm b/perl-install/security/msec.pm
index 1ede6a4b1..bd3cb81eff 100644
--- a/perl-install/security/msec.pm
+++ b/perl-install/security/msec.pm
@@ -167,7 +167,7 @@ sub get_functions {
                          set_shell_history_size set_shell_timeout set_user_umask)]);
 
     my $file = "$::prefix/usr/share/msec/mseclib.py";
-    my $function = '';
+    my $function;
 
     # read mseclib.py to get each function's name and if it's
     # not in the ignore list, add it to the returned list.
@@ -255,8 +255,7 @@ sub get_check_default {
 # config_check(check, value)
 #   Apply the configuration to "$::prefix"/etc/security/msec/security.conf
 sub config_check {
-    shift;
-    my ($check, $value) = @_;
+    my (undef, $check, $value) = @_;
     if ($value eq 'default') {
 	   substInFile { s/^$check.*\n// } $check_file;
     } else {
-- 
cgit v1.2.1