diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-06 16:12:47 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-06 16:12:47 +0000 |
| commit | 8330b7e7eeec180827ad7b609f7ebae55c2b7b70 (patch) | |
| tree | 18221a398202711a29cc6892343198645759783d /perl-install | |
| parent | 7c9ab4c1127c2f36a148f6d6168dc5c754c4693f (diff) | |
| download | drakx-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.pm | 2 |
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) { |