From 9aa15e945aa3846e06d2153bb1175d2372fbf7fa Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 20 May 2003 07:57:41 +0000 Subject: - fix #3616 (draksec discarding changes) - add a end of line btw at the end of file to please cat --- perl-install/security/msec.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/security/msec.pm b/perl-install/security/msec.pm index c672d0cb1..f03760c09 100644 --- a/perl-install/security/msec.pm +++ b/perl-install/security/msec.pm @@ -131,10 +131,10 @@ sub apply_functions { substInFile { foreach my $function (@list) { s/^$function.*\n// } if (eof) { - print "\n", join("\n", map { + $_ .= join("\n", if_(!$_, ''), (map { my $value = $msec->get_function_value($_); if_($value ne 'default', "$_ ($value)"); - } @list); + } @list), ""); } } $msec->{functions}{values_file}; } -- cgit v1.2.1