holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Minor cleanup of split_columns()

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2017-03-22 10:18:07 -07:00
parent 8507c97b5a
commit 8b90827611
No known key found for this signature in database
GPG Key ID: 96E6B3F2423A4D10
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Shorewall/Perl/Shorewall/Config.pm
View File

@ -2232,7 +2232,7 @@ sub split_list4( $ ) {
sub split_columns( $ ) {
my ($list) = @_;
return split ' ', $list unless $list =~ /\(/;
return split ' ', $list unless $list =~ /[()]/;
my @list1 = split ' ', $list;
my @list2;
@ -2273,9 +2273,7 @@ sub split_columns( $ ) {
}
}
unless ( $opencount == 0 ) {
fatal_error "Mismatched parentheses ($list)";
}
fatal_error "Mismatched parentheses ($list)" unless $opencount == 0;
@list2;
}