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

Fix bug with 'any'

Browse Source
This commit is contained in:
Tom Eastep 2010-08-12 07:31:37 -07:00
parent aa00acc310
commit 69eaf84078
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Shorewall/Perl/Shorewall/Zones.pm
View File

@ -740,7 +740,13 @@ sub non_firewall_zones() {
} }
sub all_parent_zones() { sub all_parent_zones() {
grep ( ! @{$zones{$_}{parents}} , @zones ); #
# Although the firewall zone is a parent zone, we let the caller decide
# if it is to be included or not.
#
grep ( ! ( $zones{$_}->{type} == FIREWALL ||
$zones{$_}->{type} == VSERVER ||
@{$zones{$_}{parents}} ) , @zones );
} }
sub complex_zones() { sub complex_zones() {