extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-03-07 19:11:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

Avoid Perl run-time errors when checking a provider interface.

Browse Source 
- Handle case where a provider interface matches a wildcard

Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2013-03-09 07:56:16 -08:00
parent b871fc689c
commit a167e3449e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1402,6 +1402,7 @@ sub known_interface($)
number => $interfaceref->{number} , number => $interfaceref->{number} ,
physical => $physical , physical => $physical ,
base => var_base( $physical ) , base => var_base( $physical ) ,
zones => $interfaceref->{zones} ,
}; };
} }
} }
@ -1496,9 +1497,10 @@ sub source_port_to_bridge( $ ) {
# Returns a hash reference for the zones interface through the interface # Returns a hash reference for the zones interface through the interface
# #
sub interface_zones( $ ) { sub interface_zones( $ ) {
my $interfaceref = $interfaces{(shift)}; my $interfaceref = known_interface( $_[0] );
$interfaceref->{zones}; fatal_error "Unknown interface(@_)" unless $interfaceref;
$interfaceref->{zones} || {};
} }
# #