From 1b87405d96f367f112d660d65ba8043982677f58 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Sat, 29 Jan 2011 08:45:20 -0800
Subject: [PATCH] Fix silly bug in expand_rule()

---
 Shorewall/Perl/Shorewall/Chains.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Shorewall/Perl/Shorewall/Chains.pm b/Shorewall/Perl/Shorewall/Chains.pm
index b5c59eafe..ffb5a2922 100644
--- a/Shorewall/Perl/Shorewall/Chains.pm
+++ b/Shorewall/Perl/Shorewall/Chains.pm
@@ -3541,7 +3541,7 @@ sub expand_rule( $$$$$$$$$$;$ )
 	    $iiface = $1;
 	    $inets  = $2;
 	} elsif ( $source =~ /:/ ) {
-	    if ( $source =~ /^<(.+)>$/ || $source =~ /^<\[.+\]>$/ ) {
+	    if ( $source =~ /^<(.+)>$/ || $source =~ /^\[(.+)\]$/ ) {
 		$inets = $1;
 	    } else {
 		$inets = $source;