From 670931c98757343aebef5d7ada5cfdfaa6941d17 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Tue, 29 Jan 2013 07:46:07 -0800
Subject: [PATCH] Initialize the columns array to '-'s.

Signed-off-by: Tom Eastep <teastep@shorewall.net>
---
 Shorewall/Perl/Shorewall/Rules.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/Shorewall/Perl/Shorewall/Rules.pm b/Shorewall/Perl/Shorewall/Rules.pm
index d965ba64f..5331535ec 100644
--- a/Shorewall/Perl/Shorewall/Rules.pm
+++ b/Shorewall/Perl/Shorewall/Rules.pm
@@ -227,8 +227,12 @@ sub initialize( $ ) {
     # Action variants actually used. Key is <action>:<loglevel>:<tag>:<params>; value is corresponding chain name
     #
     %usedactions       = ();
-
-    @columns           = ();
+    #
+    # Columns $source through $wildcard -- with the exception of the latter, these correspond to the rules file columns
+    # The columns array is a hidden argument to perl_action_helper() and perl_action_tcp_helper() that allows Perl
+    # code in inline actions to generate proper rules.
+    #
+    @columns           = ( '-', '-', '-', '-', '-', '-', '-', '-', '-', '-', '-', '-', '-', '-', 0 );
     @columnstack       = ();
 
     if ( $family == F_IPV4 ) {