From 4781e491c32fdfe0dbe3cf97a8aca90040a9406b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 17 Apr 2003 11:34:32 +0000
Subject: new perl_checker compliance

---
 perl-install/security/various.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl-install/security')

diff --git a/perl-install/security/various.pm b/perl-install/security/various.pm
index 7d63c7fdc..23b9174ef 100644
--- a/perl-install/security/various.pm
+++ b/perl-install/security/various.pm
@@ -6,9 +6,10 @@ use strict;
 use common;
 
 sub config_libsafe {
+    my $setting = @_ > 1;
     my ($prefix, $libsafe) = @_;
     my %t = getVarsFromSh("$prefix/etc/sysconfig/system");
-    if (@_ > 1) {
+    if ($setting) {
         $t{LIBSAFE} = bool2yesno($libsafe);
         setVarsInSh("$prefix/etc/sysconfig/system", \%t);
     }
@@ -16,9 +17,10 @@ sub config_libsafe {
 }
 
 sub config_security_user {
+    my $setting = @_ > 1;
     my ($prefix, $sec_user) = @_;
     my %t = getVarsFromSh("$prefix/etc/security/msec/security.conf");
-    if (@_ > 1) {
+    if ($setting) {
         $t{MAIL_USER} = $sec_user;
 	setVarsInSh("$prefix/etc/security/msec/security.conf", \%t);
     }
-- 
cgit v1.2.1