From a5010ec9a6967c4acd1ab76d37eae332a7dc0fdd Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Sun, 9 Oct 2011 08:50:55 -0700 Subject: [PATCH] Correct alternate specification in the tunnels file. Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Tunnels.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Shorewall/Perl/Shorewall/Tunnels.pm b/Shorewall/Perl/Shorewall/Tunnels.pm index 9e2ef9c12..9b79eaac4 100644 --- a/Shorewall/Perl/Shorewall/Tunnels.pm +++ b/Shorewall/Perl/Shorewall/Tunnels.pm @@ -284,7 +284,7 @@ sub setup_tunnels() { while ( read_a_line ) { - my ( $kind, $zone, $gateway, $gatewayzones ) = split_line1 'tunnels file', { kind => 0, zone => 1, gateway => 2, gateway_zone => 3 }; + my ( $kind, $zone, $gateway, $gatewayzones ) = split_line1 'tunnels file', { type => 0, zone => 1, gateway => 2, gateway_zone => 3 }; fatal_error 'TYPE must be specified' if $kind eq '-'; fatal_error 'ZONE must be specified' if $zone eq '-';