From 8330b7e7eeec180827ad7b609f7ebae55c2b7b70 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 6 Feb 2004 16:12:47 +0000
Subject: fix draksec not saving options when config file do not exists :-(

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

(limited to 'perl-install')

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) {
-- 
cgit v1.2.1