From 7aec5dc3984038dc4796575a2b1fdfd83408339f Mon Sep 17 00:00:00 2001
From: teastep <teastep@fbd18981-670d-0410-9b5c-8dc0c1a9a2bb>
Date: Wed, 2 May 2007 21:20:01 +0000
Subject: [PATCH] Catch self-invocation of an action

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

diff --git a/Shorewall-perl/Shorewall/Actions.pm b/Shorewall-perl/Shorewall/Actions.pm
index a259549ec..3fb43c0ec 100644
--- a/Shorewall-perl/Shorewall/Actions.pm
+++ b/Shorewall-perl/Shorewall/Actions.pm
@@ -293,6 +293,8 @@ sub process_actions1() {
 
 		    fatal_error "Invalid TARGET ($target)" if $targettype & STANDARD;
 
+		    fatal_error "An action may not invoke itself" if $target eq $action;
+
 		    add_requiredby $wholetarget, $action if $targettype & ACTION;
 		} else {
 		    $target =~ s!/.*$!!;