From 22ad938758373ec4e2f8490d62f2cdc237d50d7c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 11 Nov 2002 22:20:22 +0000
Subject: - replace ... =~ 'foo'  with  ... =~ /foo/ - remove unneeded
 parentheses for things like ... if (...)

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

(limited to 'perl-install/security/msec.pm')

diff --git a/perl-install/security/msec.pm b/perl-install/security/msec.pm
index 94af85fa3..33d7fd76d 100644
--- a/perl-install/security/msec.pm
+++ b/perl-install/security/msec.pm
@@ -195,7 +195,7 @@ sub get_functions {
             (undef, $function) = split(/ /, $_);
             ($function, undef) = split(/\(/, $function);
             if (!(member($function, @ignore_list))) {
-                push(@functions, $function) if (member($function, @{$options{$category}}));
+                push(@functions, $function) if member($function, @{$options{$category}});
             }
         }
     }
@@ -250,7 +250,7 @@ sub get_default_checks {
         open F, $check_file;
         while (<F>) {
             ($check, undef) = split(/=/, $_);
-            push @checks, $check if (!(member($check, qw(MAIL_USER))))
+            push @checks, $check if !(member($check, qw(MAIL_USER)))
         }
         close F;
     }
-- 
cgit v1.2.1