summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-02-06 16:12:47 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-02-06 16:12:47 +0000
commit8330b7e7eeec180827ad7b609f7ebae55c2b7b70 (patch)
tree18221a398202711a29cc6892343198645759783d /perl-install
parent7c9ab4c1127c2f36a148f6d6168dc5c754c4693f (diff)
downloaddrakx-8330b7e7eeec180827ad7b609f7ebae55c2b7b70.tar
drakx-8330b7e7eeec180827ad7b609f7ebae55c2b7b70.tar.gz
drakx-8330b7e7eeec180827ad7b609f7ebae55c2b7b70.tar.bz2
drakx-8330b7e7eeec180827ad7b609f7ebae55c2b7b70.tar.xz
drakx-8330b7e7eeec180827ad7b609f7ebae55c2b7b70.zip
fix draksec not saving options when config file do not exists :-(
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/security/msec.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/security/msec.pm b/perl-install/security/msec.pm
index 791ad8ef0..87554dea0 100644
--- a/perl-install/security/msec.pm
+++ b/perl-install/security/msec.pm
@@ -133,6 +133,7 @@ sub set_check {
sub apply_functions {
my ($msec) = @_;
my @list = sort($msec->list_functions('system'), $msec->list_functions('network'));
+ touch($msec->{functions}{values_file}) if !-e $msec->{functions}{values_file};
substInFile {
foreach my $function (@list) { s/^$function.*\n// }
if (eof) {
@@ -147,6 +148,7 @@ sub apply_functions {
sub apply_checks {
my ($msec) = @_;
my @list = sort $msec->raw_checks_list;
+ touch($msec->{checks}{values_file}) if !-e $msec->{checks}{values_file};
substInFile {
foreach my $check (@list) { s/^$check.*\n// }
if (eof) {