From aa6754cb40480ac28e5854741f21ebf79eaa640e Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Fri, 31 Dec 2010 07:51:15 -0800
Subject: [PATCH] Add a comment

---
 Shorewall/Perl/Shorewall/Rules.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Shorewall/Perl/Shorewall/Rules.pm b/Shorewall/Perl/Shorewall/Rules.pm
index 99627ca34..72c5740c2 100644
--- a/Shorewall/Perl/Shorewall/Rules.pm
+++ b/Shorewall/Perl/Shorewall/Rules.pm
@@ -848,8 +848,8 @@ sub process_macro ( $$$$$$$$$$$$$$$$$ ) {
     clear_comment unless $nocomment;
 
     return $generated;
-
 }
+
 #
 # Once a rule has been expanded via wildcards (source and/or dest zone eq 'all'), it is processed by this function. If
 # the target is a macro, the macro is expanded and this function is called recursively for each rule in the expansion.
@@ -1085,6 +1085,9 @@ sub process_rule_common ( $$$$$$$$$$$$$$$$ ) {
     my ( $chain, $policy );
 
     if ( $inaction ) {
+        #
+        # We are generating rules in an action chain -- the chain name is the name of the action chain
+        #
 	$chain = $chainref->{name};
     } else { 
 	unless ( $actiontype & NATONLY ) {