From f32a777099a37f366e513f45b5b2c5359f52ec26 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Wed, 18 Dec 2013 09:19:35 -0800
Subject: [PATCH] Fix INLINE in tcrles

Signed-off-by: Tom Eastep <teastep@shorewall.net>
---
 Shorewall/Perl/Shorewall/Tc.pm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/Shorewall/Perl/Shorewall/Tc.pm b/Shorewall/Perl/Shorewall/Tc.pm
index 99db00408..ef5001bc4 100644
--- a/Shorewall/Perl/Shorewall/Tc.pm
+++ b/Shorewall/Perl/Shorewall/Tc.pm
@@ -318,10 +318,14 @@ sub process_tc_rule1( $$$$$$$$$$$$$$$$ ) {
 
     my $raw = '';
 
-    if ( $originalmark =~ /^INLINE\((.+)\)(:.*)?$/ ) {
-	$originalmark = $1;
-	$originalmark .= $2 if $2;
-	$raw = get_inline_matches(0);
+    if ( $originalmark =~ /^INLINE(\((.+)\))?(:.*)?$/ ) {
+	if ( $1 ) {
+	    $originalmark = $2;
+	    $originalmark .= $3 if $3;
+	    $raw = get_inline_matches(0);
+	} else {
+	    $raw = get_inline_matches(1);
+	}
     } elsif ( $config{INLINE_MATCHES} ) {
 	$raw = get_inline_matches(0);
     }