extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-06-20 17:58:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

Some whitespace changes

Browse Source
This commit is contained in:
Tom Eastep 2011-06-19 19:08:32 -07:00
parent e4bcc12301
commit 4c2f12e645
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Shorewall/Perl/Shorewall/Config.pm
View File

@ -3811,6 +3811,7 @@ sub update_config_file( $ ) {
if ( -f $fn ) {
my ( $template, $output );
open $template, '<' , $fn or fatal_error "Unable to open $fn: $!";
unless ( open $output, '>', "$configfile.updated" ) {
@ -3841,14 +3842,14 @@ sub update_config_file( $ ) {
$val = $default;
}
}
unless ( $val =~ /^[-\w\/\.]*$/ ) {
#
# Funny characters (including whitespace) -- use double quotes unless the thing is single-quoted
#
$val = qq("$val") unless $val =~ /^'.+'$/;
}
$_ = "$var=$val\n";
}
@ -3907,7 +3908,6 @@ EOF
fatal_error "Can't rename $configfile to $configfile.bak: $!" unless rename $configfile, "$configfile.bak";
fatal_error "Can't rename $configfile.updated to $configfile: $!" unless rename "$configfile.updated", $configfile;
progress_message3 "Configuration file $configfile updated - old file renamed $configfile.bak";
} else {
fatal_error "$fn does not exist";