From 4c2f12e6451ebb36a4f512d1fbcd769783c353c8 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Sun, 19 Jun 2011 19:08:32 -0700 Subject: [PATCH] Some whitespace changes --- Shorewall/Perl/Shorewall/Config.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm index ddabfaa55..7dfa50707 100644 --- a/Shorewall/Perl/Shorewall/Config.pm +++ b/Shorewall/Perl/Shorewall/Config.pm @@ -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";