From 52f5ae15d1b1371e5a115e9ef5843f168f2b05e1 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Thu, 25 Apr 2013 17:29:41 -0700 Subject: [PATCH] Apply Mr-4's cosmetic patch Signed-off-by: Tom Eastep --- 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 ";