From bd9e8142b926dee183ee3307db5089d540d498b0 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Wed, 3 Feb 2016 10:43:10 -0800
Subject: [PATCH] Ensure that the chain origin is used when there is no rule
 origin

Signed-off-by: Tom Eastep <teastep@shorewall.net>
---
 Shorewall/Perl/Shorewall/Chains.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Shorewall/Perl/Shorewall/Chains.pm b/Shorewall/Perl/Shorewall/Chains.pm
index 998c84f93..409cc1df4 100644
--- a/Shorewall/Perl/Shorewall/Chains.pm
+++ b/Shorewall/Perl/Shorewall/Chains.pm
@@ -1254,6 +1254,8 @@ sub set_irule_comment( $$ ) {
 
     our $rule_comments;
 
+    $ruleref->{origin} ||= $chainref->{origin};
+
     if ( $rule_comments ) {
 	$ruleref->{comment} = $ruleref->{origin} || $comment;
     } else {
@@ -6350,7 +6352,7 @@ sub log_rule_limit( $$$$$$$$;$ ) {
 	$ruleref = insert_rule1 ( $chainref , 0 , $matches . $prefix );
     }
 
-    $ruleref->{origin} = $origin ||= $chainref->{origin} if reftype $ruleref;
+    $ruleref->{origin} = $origin if reftype( $ruleref ) && $origin;
 
     $ruleref;
 }