From c8866ef8bf94074b75acd8a26f4f5bf6ba00af78 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Sun, 29 Dec 2013 08:56:14 -0800
Subject: [PATCH] Correct handling of columns with embedded spaces

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

diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm
index 5e09e4b19..4ae6370ed 100644
--- a/Shorewall/Perl/Shorewall/Config.pm
+++ b/Shorewall/Perl/Shorewall/Config.pm
@@ -2003,7 +2003,7 @@ sub split_columns( $ ) {
 	    if ( $element eq '' ) {
 		$element = $_;
 	    } else {
-		$element = join( ',', $element, $_ );
+		$element = join( ' ', $element, $_ );
 	    }
 
 	    if ( ( $count = tr/)/)/ ) > 0 ) {
@@ -2015,7 +2015,7 @@ sub split_columns( $ ) {
 		}
 	    }
 	} elsif ( ( $count =  tr/)/)/ ) > 0 ) {
-	    $element = join (',', $element, $_ );
+	    $element = join (' ', $element, $_ );
 	    if ( ! ( $opencount -= $count ) ) {
 		 push @list2 , $element;
 		 $element = '';
@@ -2025,7 +2025,7 @@ sub split_columns( $ ) {
 	} elsif ( $element eq '' ) {
 	    push @list2 , $_;
 	} else {
-	    $element = join ',', $element , $_;
+	    $element = join ' ', $element , $_;
 	}
     }