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

Tighen up parsing of bracketed lists

Browse Source
This commit is contained in:
Tom Eastep 2010-09-20 07:05:23 -07:00
parent 0ed33a0552
commit f64993fe40
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Shorewall/Perl/Shorewall/Chains.pm
View File

@ -2896,12 +2896,16 @@ sub mysplit( $ ) {
my $element = shift @input;
if ( $element =~ /\[/ ) {
while ( $element =~ tr/[/[/ != $element =~ tr/]/]/ ) {
while ( $element =~ tr/[/[/ > $element =~ tr/]/]/ ) {
last unless @input;
$element .= ( ',' . shift @input );
}
fatal_error "Invalid Host List ($_[0])" unless $element =~ tr/[/[/ == $element =~ tr/]/]/;
if ( $element =~ tr/[/[/ > $element =~ tr/]/]/ ) {
fatal_error "Missing ']' ($element)";
} else {
fatal_error "Mismatched [...] ($element)" unless $element =~ tr/[/[/ == $element =~ tr/]/]/;
}
}
push @result, $element;