From a011ad8efe69e82a7f776c3832e23786a97b67f8 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Sun, 16 Feb 2014 09:59:13 -0800 Subject: [PATCH] Add raw matches to the converted mangle file. Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Tc.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Shorewall/Perl/Shorewall/Tc.pm b/Shorewall/Perl/Shorewall/Tc.pm index 60b0d1c2a..d96ca836e 100644 --- a/Shorewall/Perl/Shorewall/Tc.pm +++ b/Shorewall/Perl/Shorewall/Tc.pm @@ -948,6 +948,10 @@ sub process_tc_rule1( $$$$$$$$$$$$$$$$ ) { # $line =~ s/(?:\t-)+$//; + my $raw_matches = fetch_inline_matches; + + $line .= join( '', ' ;', $raw_matches ) if $raw_matches ne ' '; + print $mangle "$line\n"; } else { process_mangle_rule1( 'TC',