From 52f5ae15d1b1371e5a115e9ef5843f168f2b05e1 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Thu, 25 Apr 2013 17:29:41 -0700
Subject: [PATCH] Apply Mr-4's cosmetic patch

Signed-off-by: Tom Eastep <teastep@shorewall.net>
---
 Shorewall/Perl/Shorewall/Accounting.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Shorewall/Perl/Shorewall/Accounting.pm b/Shorewall/Perl/Shorewall/Accounting.pm
index 3197bd06c..7327e0f8c 100644
--- a/Shorewall/Perl/Shorewall/Accounting.pm
+++ b/Shorewall/Perl/Shorewall/Accounting.pm
@@ -234,8 +234,7 @@ sub process_accounting_rule1( $$$$$$$$$$$ ) {
 	} elsif ( $action =~ /^NFACCT\((.+)\)$/ ) {
 	    require_capability 'NFACCT_MATCH', 'The NFACCT action', 's';
 	    $target = '';
-	    my @objects = split_nfacct_list $1;
-	    for ( @objects ) {
+	    for ( my @objects = split_nfacct_list $1 ) {
 	       if ( $_ =~ /^([\w%&@~]+)(!)?$/ ) {
 		   if ( $2 ) {
 		       $prerule .= "-m nfacct --nfacct-name $1 ";