From 8f9413700798e934fa57e123e4fb217f70e2b92a Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Mon, 30 Aug 2010 16:47:45 -0700 Subject: [PATCH] Fix last change --- Shorewall/Perl/Shorewall/Rules.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Rules.pm b/Shorewall/Perl/Shorewall/Rules.pm index 566960aa7..788d84ebf 100644 --- a/Shorewall/Perl/Shorewall/Rules.pm +++ b/Shorewall/Perl/Shorewall/Rules.pm @@ -177,7 +177,7 @@ sub setup_ecn() my ($interface, $hosts ) = split_line 1, 2, 'ecn file entry'; - fatal_error "Unknown interface ($interface)" unless known_interface( $interface ); + fatal_error "Unknown interface ($interface)" unless known_interface $interface; $interfaces{$interface} = 1; @@ -328,7 +328,7 @@ sub process_routestopped() { my $interfaceref; - fatal_error "Unknown interface ($interface)" unless $interfaceref = known_interface( $interface ); + fatal_error "Unknown interface ($interface)" unless $interfaceref = known_interface $interface; $hosts = ALLIP unless $hosts && $hosts ne '-'; my $routeback = 0; @@ -769,7 +769,7 @@ sub setup_mac_lists( $ ) { my $targetref = $maclist_targets{$disposition}; fatal_error "Invalid DISPOSITION ($original_disposition)" if ! $targetref || ( ( $table eq 'mangle' ) && ! $targetref->{mangle} ); - fatal_error "Unknown Interface ($interface)" unless known_interface $interface; + fatal_error "Unknown Interface ($interface)" unless known_interface( $interface ); fatal_error "No hosts on $interface have the maclist option specified" unless $maclist_interfaces{$interface}; my $chainref = $chain_table{$table}{( $ttl ? macrecent_target $interface : mac_chain $interface )};