From 1e6b3fe0c2969cc0d5cbbe0e8bea82a5f95ad8d7 Mon Sep 17 00:00:00 2001
From: teastep <teastep@fbd18981-670d-0410-9b5c-8dc0c1a9a2bb>
Date: Mon, 9 Apr 2007 16:42:51 +0000
Subject: [PATCH] Fix silly tunnels file problem

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5872 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
---
 Shorewall-perl/Shorewall/Tunnels.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Shorewall-perl/Shorewall/Tunnels.pm b/Shorewall-perl/Shorewall/Tunnels.pm
index f8cf8489c..8b58556e0 100644
--- a/Shorewall-perl/Shorewall/Tunnels.pm
+++ b/Shorewall-perl/Shorewall/Tunnels.pm
@@ -128,7 +128,7 @@ sub setup_tunnels() {
 	    $port = $p;
 	    $protocol = $proto;
 	} elsif ( $proto ) {
-	    $port = $proto;
+	    $protocol = $proto;
 	}
 
 	add_rule $inchainref,  "-p $protocol $source --dport $port -j ACCEPT";
@@ -147,7 +147,7 @@ sub setup_tunnels() {
 	    $port = $p;
 	    $protocol = $proto;
 	} elsif ( $proto ) {
-	    $port = $proto;
+	    $protocol = $proto;
 	}
 
 	add_rule $inchainref,  "-p $protocol $source --sport $port -j ACCEPT";
@@ -166,7 +166,7 @@ sub setup_tunnels() {
 	    $port = $p;
 	    $protocol = $proto;
 	} elsif ( $proto ) {
-	    $port = $proto;
+	    $protocol = $proto;
 	}
 
 	add_rule $inchainref,  "-p $protocol $source --dport $port -j ACCEPT";