From e2fa2957786e78efb9e3bc988896e4ad1825de24 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Sat, 19 Jul 2003 13:15:49 +0000
Subject: sort functions & checks when writing configuration

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

(limited to 'perl-install/security')

diff --git a/perl-install/security/msec.pm b/perl-install/security/msec.pm
index 9284704c3..4870d75b6 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 = ($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) {
@@ -141,7 +141,7 @@ sub apply_functions {
 
 sub apply_checks {
     my ($msec) = @_;
-    my @list =  $msec->list_checks;
+    my @list =  sort $msec->list_checks;
     substInFile {
         foreach my $check (@list) { s/^$check.*\n// }
         if (eof) {
-- 
cgit v1.2.1