From 48cb9679bbb7fcb28d9d478a3a42208e88e6d9e3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 12 Aug 2004 01:50:10 +0000
Subject: use difference2() as suggested by new perl_checker warning

---
 perl-install/security/msec.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/security')

diff --git a/perl-install/security/msec.pm b/perl-install/security/msec.pm
index 7b07f1c30..35efe8462 100644
--- a/perl-install/security/msec.pm
+++ b/perl-install/security/msec.pm
@@ -83,7 +83,7 @@ sub raw_checks_list {
 
 sub list_checks {
     my ($msec) = @_;
-    grep { !member($_, qw(MAIL_WARN MAIL_USER)) } $msec->raw_checks_list;
+    difference2([ $msec->raw_checks_list ], [ qw(MAIL_WARN MAIL_USER) ]);
 }
 
 sub list_functions {
-- 
cgit v1.2.1