From 131d73c46f74a95286e454c274c3b3567a494c3b Mon Sep 17 00:00:00 2001
From: teastep <teastep@fbd18981-670d-0410-9b5c-8dc0c1a9a2bb>
Date: Thu, 26 Jul 2007 14:32:25 +0000
Subject: [PATCH] Tiny optimization -- another instance

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6965 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
---
 Shorewall-perl/Shorewall/Config.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Shorewall-perl/Shorewall/Config.pm b/Shorewall-perl/Shorewall/Config.pm
index 1460f1f7d..caa27fa03 100644
--- a/Shorewall-perl/Shorewall/Config.pm
+++ b/Shorewall-perl/Shorewall/Config.pm
@@ -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;
 	}