From 95418990fe45ddc742d61f6cf0756abf7276b1c9 Mon Sep 17 00:00:00 2001
From: teastep <teastep@fbd18981-670d-0410-9b5c-8dc0c1a9a2bb>
Date: Mon, 21 May 2007 19:50:24 +0000
Subject: [PATCH] Catch missing action in rules

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6433 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
---
 Shorewall-perl/Shorewall/Rules.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Shorewall-perl/Shorewall/Rules.pm b/Shorewall-perl/Shorewall/Rules.pm
index 85e2b772e..2dd54b2d5 100644
--- a/Shorewall-perl/Shorewall/Rules.pm
+++ b/Shorewall-perl/Shorewall/Rules.pm
@@ -1193,6 +1193,8 @@ sub process_rule ( $$$$$$$$$$ ) {
 
     my $action = isolate_basic_target $target;
 
+    fatal_error "Invalid or missing ACTION ( $target )" unless defined $action;
+
     $optimize = 0 if $action =~ /!$/;
 
     if ( $source eq 'all' ) {