holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Suppress trailing whitespace.

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2012-04-14 13:50:59 -07:00
parent eb7a21030d
commit 63a2a32b4b
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2230,13 +2230,20 @@ sub read_a_line($) {
} }
} }
# #
# Now remove concatinated comments # Now remove concatinated comments if asked
# #
$currentline =~ s/\s*#.*$// if $options & STRIP_COMMENTS; $currentline =~ s/\s*#.*$// if $options & STRIP_COMMENTS;
if ( $options & SUPPRESS_WHITESPACE ) {
# #
# Ignore ( concatenated ) Blank Lines after comments are removed. # Ignore (concatinated) blank lines
# #
$currentline = '', $currentlinenumber = 0, next if $currentline =~ /^\s*$/ && ( $options & SUPPRESS_WHITESPACE ); $currentline = '', $currentlinenumber = 0, next if $currentline =~ /^\s*$/;
#
# Eliminate trailing whitespace
#
$currentline =~ s/\s*$//;
}
# #
# Line not blank -- Handle any first-entry message/capabilities check # Line not blank -- Handle any first-entry message/capabilities check
# #