From ffbcd1b1fe1dd00b6782bb3cfd1b710d3293cbd0 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Tue, 21 Dec 2010 13:20:44 -0800
Subject: [PATCH] Catch an action that invokes itself

---
 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 655aa45f4..6bc8d5c81 100644
--- a/Shorewall/Perl/Shorewall/Rules.pm
+++ b/Shorewall/Perl/Shorewall/Rules.pm
@@ -293,8 +293,6 @@ sub process_actions1() {
 		next;
 	    }
 
-	    $targets{$action} = ACTION;
-
 	    fatal_error "Invalid Action Name ($action)" unless "\L$action" =~ /^[a-z]\w*$/;
 
 	    new_action $action;
@@ -335,6 +333,8 @@ sub process_actions1() {
 	    }
 
 	    pop_open;
+
+	    $targets{$action} = ACTION;
 	}
     }
 }