From 7a7488e3e0c1c39d2fe01398507e7c892b6de102 Mon Sep 17 00:00:00 2001 From: teastep Date: Sat, 5 May 2007 04:35:55 +0000 Subject: [PATCH] Fix unknown zone handling in Tunnels file -- Take 2 git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6246 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb --- Shorewall-perl/Shorewall/Tunnels.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Shorewall-perl/Shorewall/Tunnels.pm b/Shorewall-perl/Shorewall/Tunnels.pm index 0e26a25a3..de2dbd6e8 100644 --- a/Shorewall-perl/Shorewall/Tunnels.pm +++ b/Shorewall-perl/Shorewall/Tunnels.pm @@ -71,7 +71,7 @@ sub setup_tunnels() { unless ( $gatewayzones eq '-' ) { for my $zone ( split /,/, $gatewayzones ) { - fatal_error "Unknown zone ($zone)" unless $zones{zone}; + fatal_error "Unknown zone ($zone)" unless $zones{$zone}; fatal_error "Invalid zone ($zone)" unless $zones{$zone}{type} eq 'ipv4'; $inchainref = ensure_filter_chain "${zone}2${firewall_zone}", 1; $outchainref = ensure_filter_chain "${firewall_zone}2${zone}", 1; @@ -210,7 +210,7 @@ sub setup_tunnels() { sub setup_one_tunnel($$$$) { my ( $kind , $zone, $gateway, $gatewayzones ) = @_; - fatal_error "Unknown zone ($zone)" unless $zones{zone}; + fatal_error "Unknown zone ($zone)" unless $zones{$zone}; fatal_error "Invalid zone ($zone)" unless $zones{$zone}{type} eq 'ipv4';