From 977fa81d46948d3e658b836eb95d79c0314e6661 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Fri, 10 Feb 2017 11:43:51 -0800 Subject: [PATCH] Make 'none' case-insensitive in policy action specifications Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Rules.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Rules.pm b/Shorewall/Perl/Shorewall/Rules.pm index ca4c7ce08..01411e7b0 100644 --- a/Shorewall/Perl/Shorewall/Rules.pm +++ b/Shorewall/Perl/Shorewall/Rules.pm @@ -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 );