mirror of
https://gitlab.com/shorewall/code.git
synced 2025-06-20 17:58:07 +02:00
Combine some line-level edits
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5781 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
parent
e8ff0cb961
commit
307537336f
@ -393,6 +393,7 @@ sub read_a_line {
|
|||||||
|
|
||||||
$line .= $nextline;
|
$line .= $nextline;
|
||||||
|
|
||||||
|
$line =~ s/#.*$//; # Remove Trailing Comments
|
||||||
#
|
#
|
||||||
# Ignore ( concatenated ) Blank Lines
|
# Ignore ( concatenated ) Blank Lines
|
||||||
#
|
#
|
||||||
@ -400,15 +401,7 @@ sub read_a_line {
|
|||||||
$line = '';
|
$line = '';
|
||||||
next;
|
next;
|
||||||
}
|
}
|
||||||
#
|
|
||||||
# Ignore ( concatenated ) lines that are nothing but comments
|
|
||||||
#
|
|
||||||
if ( $line =~ /^\s*#/ ) {
|
|
||||||
$line = '';
|
|
||||||
next;
|
|
||||||
}
|
|
||||||
|
|
||||||
$line =~ s/#.*$//; # Remove Trailing Comments
|
|
||||||
$line =~ s/^\s+//; # Remove Leading white space
|
$line =~ s/^\s+//; # Remove Leading white space
|
||||||
$line =~ s/\s+$//; # Remove Trailing white space
|
$line =~ s/\s+$//; # Remove Trailing white space
|
||||||
#
|
#
|
||||||
|
Loading…
x
Reference in New Issue
Block a user