diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/security/msec.pm | 5 |
1 files changed, 2 insertions, 3 deletions
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 { |