From 60c5be6245a02d6f09aebd2d257716a578bc90c3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 11 Aug 2003 02:22:15 +0000
Subject: perl_checker compliance

---
 perl-install/security/l10n.pm | 2 +-
 perl-install/security/msec.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/security')

diff --git a/perl-install/security/l10n.pm b/perl-install/security/l10n.pm
index 71d0e2b71..64d0c2520 100644
--- a/perl-install/security/l10n.pm
+++ b/perl-install/security/l10n.pm
@@ -6,7 +6,7 @@ package security::l10n;
 
 use common;
 
-sub fields {
+sub fields() {
     return (
             'accept_bogus_error_responses' => N("Accept bogus IPv4 error messages"),
             'accept_broadcasted_icmp_echo' => N("Accept broadcasted icmp echo"),
diff --git a/perl-install/security/msec.pm b/perl-install/security/msec.pm
index 4870d75b6..706daf5b7 100644
--- a/perl-install/security/msec.pm
+++ b/perl-install/security/msec.pm
@@ -127,7 +127,7 @@ sub set_check {
 
 sub apply_functions {
     my ($msec) = @_;
-    my @list = sort ($msec->list_functions('system'), $msec->list_functions('network'));
+    my @list = sort($msec->list_functions('system'), $msec->list_functions('network'));
     substInFile {
         foreach my $function (@list) { s/^$function.*\n// }
         if (eof) {
-- 
cgit v1.2.1