From 6b825abeb41a8b96efcf307c272c5a0f2e32909e Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Mon, 25 Feb 2013 13:41:43 -0800
Subject: [PATCH] Catch ::<port-range> in /etc/shorewall6/snat

Signed-off-by: Tom Eastep <teastep@shorewall.net>
---
 Shorewall/Perl/Shorewall/Nat.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Shorewall/Perl/Shorewall/Nat.pm b/Shorewall/Perl/Shorewall/Nat.pm
index ccbcfcd96..12599df68 100644
--- a/Shorewall/Perl/Shorewall/Nat.pm
+++ b/Shorewall/Perl/Shorewall/Nat.pm
@@ -269,7 +269,7 @@ sub process_one_masq1( $$$$$$$$$$ )
 				#
 				my $ports;
 
-				if ( $addr =~ s/:([^]]+)$// ) {
+				if ( $addr =~ s/:([^]:]+)$// ) {
 				    $ports = $1;
 				}