From b9471a249905b0021f7e39446922abe6fd956be8 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Mon, 6 Feb 2017 14:15:24 -0800 Subject: [PATCH] Correct parsing of the POLICY column Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Rules.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Shorewall/Perl/Shorewall/Rules.pm b/Shorewall/Perl/Shorewall/Rules.pm index b5bfff1cc..16c09237b 100644 --- a/Shorewall/Perl/Shorewall/Rules.pm +++ b/Shorewall/Perl/Shorewall/Rules.pm @@ -571,7 +571,7 @@ sub process_default_actions( $$$ ) { if ( supplied $defaults ) { if ( $defaults ne 'none' ) { for my $default ( split_list3( $defaults, 'Default Action' ) ) { - my ( $action, $level, undef, $remainder ) = split( /:/, $default, ACTION_TUPLE_ELEMENTS - 1); + my ( $action, $level, $remainder ) = split( /:/, $default ); fatal_error "Invalid default action ($default:$level:$remainder)" if defined $remainder;