From 5823411091e6cc27548878766a9155ea663d86d6 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Mon, 21 Oct 2013 07:04:23 -0700
Subject: [PATCH] Correct typo in a regular expression.

- Re-enable |<mark> in the tctrules file.

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

diff --git a/Shorewall/Perl/Shorewall/Tc.pm b/Shorewall/Perl/Shorewall/Tc.pm
index ca907226f..f8687c7b2 100644
--- a/Shorewall/Perl/Shorewall/Tc.pm
+++ b/Shorewall/Perl/Shorewall/Tc.pm
@@ -645,7 +645,7 @@ our  %tccmd;
 
     unless ( $classid ) {
 	{
-	    if ( $cmd =~ /^([[A-Z!&]+)/ ) {
+	    if ( $cmd =~ /^([[A-Z|&]+)/ ) {
 		if ( my $tccmd = $tccmd{$1} ) {
 		    fatal_error "Invalid $1 ACTION ($originalmark)" unless $tccmd->{match}($cmd); 
 		    fatal_error "$mark not valid with :C[FPT]" if $connmark;