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

Refinement to fix for double exclusion

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2011-05-06 07:29:00 -07:00
parent 1a48dd3eb9
commit 359de906ca
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3248,12 +3248,12 @@ sub mysplit( $;$ ) {
unless ( $loose ) { unless ( $loose ) {
fatal_error "Invalid host list ($input)" if $exclude && $element =~ /!/; fatal_error "Invalid host list ($input)" if $exclude && $element =~ /!/;
$exclude ||= $element =~ /^!/ || $element =~ /\]!/;
} }
$exclude ||= $element =~ /^!/ || $element =~ /\]!/;
fatal_error "Mismatched [...] ($element)" unless $element =~ tr/[/[/ == $element =~ tr/]/]/; fatal_error "Mismatched [...] ($element)" unless $element =~ tr/[/[/ == $element =~ tr/]/]/;
} else { } else {
$exclude ||= $element =~ /!/; $exclude ||= $element =~ /!/ unless $loose;
} }
push @result, $element; push @result, $element;