From a0b0a79f93149e62e6ab0b810416b0d295702feb Mon Sep 17 00:00:00 2001
From: teastep <teastep@fbd18981-670d-0410-9b5c-8dc0c1a9a2bb>
Date: Sat, 7 Jul 2007 16:18:27 +0000
Subject: [PATCH] Newbie accent eradication

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6799 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
---
 Shorewall-perl/Shorewall/Config.pm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/Shorewall-perl/Shorewall/Config.pm b/Shorewall-perl/Shorewall/Config.pm
index e82cb06ce..5fd5f7f37 100644
--- a/Shorewall-perl/Shorewall/Config.pm
+++ b/Shorewall-perl/Shorewall/Config.pm
@@ -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
 	    #