From 1ad411e5a34416c3023d4a699ae1598122135e2c Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Sat, 20 Aug 2011 06:49:02 -0700 Subject: [PATCH] Correct handling of Wildcard Providers Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Zones.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Zones.pm b/Shorewall/Perl/Shorewall/Zones.pm index 2660e2a6a..dda524035 100644 --- a/Shorewall/Perl/Shorewall/Zones.pm +++ b/Shorewall/Perl/Shorewall/Zones.pm @@ -1375,8 +1375,7 @@ sub find_interfaces_by_option1( $ ) { my @ints = (); my $wild = 0; - for my $interface ( sort { $interfaces{$a}->{number} <=> $interfaces{$b}->{number} } - ( grep $interfaces{$_}{root}, keys %interfaces ) ) { + for my $interface ( sort { $interfaces{$a}->{number} <=> $interfaces{$b}->{number} } keys %interfaces ) { my $interfaceref = $interfaces{$interface}; next unless defined $interfaceref->{physical};