extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-11-15 04:04:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

Newbie accent eradication

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6799 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-07-07 16:18:27 +00:00
parent ef3efba72f
commit a0b0a79f93
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Shorewall-perl/Shorewall/Config.pm
View File

@ -532,18 +532,15 @@ sub read_a_line {
$line = '';
while ( my $nextline = <$currentfile> ) {
while ( <$currentfile> ) {
$currentlinenumber++;
chomp $nextline;
chomp;
#
# Continuation
#
if ( substr( ( $line .= $nextline ), -1, 1 ) eq '\\' ) {
$line = substr( $line, 0, -1 );
next;
}
chop $line, next if substr( ( $line .= $_ ), -1, 1 ) eq '\\';
$line =~ s/#.*$//; # Remove Trailing Comments -- result might be a blank line
#