Remove superfluous '[' from character set.

Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2013-10-21 09:28:21 -07:00
parent 5823411091
commit ca3385d1be

View File

@ -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;