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

Tiny optimization -- another instance

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6965 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-07-26 14:32:25 +00:00
parent 32ba2ce0b9
commit 131d73c46f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -893,11 +893,11 @@ sub read_a_line() {
sub read_a_line1() { sub read_a_line1() {
while ( $currentfile ) { while ( $currentfile ) {
while ( $currentline = <$currentfile> ) { while ( $currentline = <$currentfile> ) {
$currentlinenumber++;
next if $currentline =~ /^\s*#/; next if $currentline =~ /^\s*#/;
chomp $currentline; chomp $currentline;
next if $currentline =~ /^\s*$/; next if $currentline =~ /^\s*$/;
$currentline =~ s/#.*$//; # Remove Trailing Comments $currentline =~ s/#.*$//; # Remove Trailing Comments
$currentlinenumber = $.;
return 1; return 1;
} }