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 ";