From 46abc9b397fcb954b3a9913cd00418de67d0c33b Mon Sep 17 00:00:00 2001
From: teastep <teastep@fbd18981-670d-0410-9b5c-8dc0c1a9a2bb>
Date: Mon, 23 Jul 2007 22:48:23 +0000
Subject: [PATCH] Allow for adding zero-length command to rules array

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

diff --git a/Shorewall-perl/Shorewall/Chains.pm b/Shorewall-perl/Shorewall/Chains.pm
index 076316c76..4172866f8 100644
--- a/Shorewall-perl/Shorewall/Chains.pm
+++ b/Shorewall-perl/Shorewall/Chains.pm
@@ -1836,7 +1836,7 @@ sub assure_cat_state() {
 sub emitr( $ ) {
     my $rule = $_[0];
 
-    if ( substr( $rule, 0, 2 ) ne '-A' ) {
+    if ( ! $rule || substr( $rule, 0, 2 ) ne '-A' ) {
 	#
 	# A command rather than a rule
 	#