extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-11-08 16:54:10 +01:00
Code Issues Packages Projects Releases Wiki 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

17
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;
#
# Ignore ( concatenated ) Blank Lines after comments are removed.
#
$currentline = '', $currentlinenumber = 0, next if $currentline =~ /^\s*$/ && ( $options & SUPPRESS_WHITESPACE );
if ( $options & SUPPRESS_WHITESPACE ) {
#
# Ignore (concatinated) blank lines
#
$currentline = '', $currentlinenumber = 0, next if $currentline =~ /^\s*$/;
#
# Eliminate trailing whitespace
#
$currentline =~ s/\s*$//;
}
#
# Line not blank -- Handle any first-entry message/capabilities check
#