holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests 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() {
while ( $currentfile ) {
while ( $currentline = <$currentfile> ) {
$currentlinenumber++;
next if $currentline =~ /^\s*#/;
chomp $currentline;
next if $currentline =~ /^\s*$/;
$currentline =~ s/#.*$//; # Remove Trailing Comments
$currentlinenumber = $.;
return 1;
}