summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-07-19 13:15:49 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-07-19 13:15:49 +0000
commite2fa2957786e78efb9e3bc988896e4ad1825de24 (patch)
tree68d2bfc246fc18aaee194bc2156755ec1a3e66b7 /perl-install
parent6b57b33fd3a44739bfd4b6e5b28117f3fdb57d77 (diff)
downloaddrakx-backup-do-not-use-e2fa2957786e78efb9e3bc988896e4ad1825de24.tar
drakx-backup-do-not-use-e2fa2957786e78efb9e3bc988896e4ad1825de24.tar.gz
drakx-backup-do-not-use-e2fa2957786e78efb9e3bc988896e4ad1825de24.tar.bz2
drakx-backup-do-not-use-e2fa2957786e78efb9e3bc988896e4ad1825de24.tar.xz
drakx-backup-do-not-use-e2fa2957786e78efb9e3bc988896e4ad1825de24.zip
sort functions & checks when writing configuration
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/security/msec.pm4
1 files changed, 2 insertions, 2 deletions
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) {