From e1524763ad5fab30cc18c28bdf4dccc48e663844 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Thu, 29 Nov 2012 08:28:52 -0800
Subject: [PATCH] Also substute the chain name for '@0'.

Signed-off-by: Tom Eastep <teastep@shorewall.net>
---
 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 ad0cc999c..5d5cfdbb5 100644
--- a/Shorewall/Perl/Shorewall/Chains.pm
+++ b/Shorewall/Perl/Shorewall/Chains.pm
@@ -4654,7 +4654,7 @@ sub do_condition( $$ ) {
 
     require_capability 'CONDITION_MATCH', 'A non-empty SWITCH column', 's';
 
-    $chain     =~ s/[^\w-]//g;
+    $chain =~ s/[^\w-]//g;
     #                          $1    $2      -     $3
     while ( $condition =~ m( ^(.*?) @({)?0(?(2)}) (.*)$ )x ) {
 	$condition = join( '', $1, $chain, $3 );