From 97d2144c0844a682ae8d22cb9fb19d71a9648614 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud 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