diff --git a/Shorewall/Perl/Shorewall/Rules.pm b/Shorewall/Perl/Shorewall/Rules.pm index 45126b58a..ffb87c262 100644 --- a/Shorewall/Perl/Shorewall/Rules.pm +++ b/Shorewall/Perl/Shorewall/Rules.pm @@ -1128,6 +1128,8 @@ sub merge_levels ($$) { my $target = $subparts[0]; + fatal_error "Missing ACTION" unless supplied $target; + push @subparts, '' while @subparts < 3; #Avoid undefined values my $sublevel = $subparts[1];