Make 'none' case-insensitive in policy action specifications

Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2017-02-10 11:43:51 -08:00
parent 09fda9eb6c
commit 977fa81d46
No known key found for this signature in database
GPG Key ID: 96E6B3F2423A4D10

View File

@ -571,8 +571,8 @@ sub process_policy_actions( $$$ ) {
if ( supplied $pactions ) {
my @pactions;
if ( $pactions ne 'none' ) {
@pactions = @{$policy_actions{policy}} if $pactions =~ s/^\+//;
if ( lc $pactions ne 'none' ) {
@pactions = @{$policy_actions{$policy}} if $pactions =~ s/^\+//;
for my $paction ( split_list3( $pactions, 'Policy Action' ) ) {
my ( $action, $level, $remainder ) = split( /:/, $paction, 3 );