diff options
-rw-r--r-- | perl-install/security/msec.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/security/msec.pm b/perl-install/security/msec.pm index 35efe8462..e4b9da561 100644 --- a/perl-install/security/msec.pm +++ b/perl-install/security/msec.pm @@ -49,7 +49,7 @@ sub load_values { chop $val; $val =~ s/[()]//g; chop $opt if $separator eq '\('; # $opt =~ s/ //g if $separator eq '\('; - if_($val, $opt => $val); + if_(defined($val), $opt => $val); } cat_($msec->{$category}{values_file}); } @@ -60,7 +60,7 @@ sub load_values { sub get_function_value { my ($msec, $function) = @_; - $msec->{functions}{value}{$function} || "default"; + exists $msec->{functions}{value}{$function} ? $msec->{functions}{value}{$function} : "default"; } sub get_check_value { |