From 7ab055e61e1900b8a95dbae60d6897efdf6f28d1 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Thu, 22 Jan 2015 08:31:51 -0800 Subject: [PATCH] Correct file name in mangle 'split_line' error messages Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Tc.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Tc.pm b/Shorewall/Perl/Shorewall/Tc.pm index 352a22cda..a87ed38b8 100644 --- a/Shorewall/Perl/Shorewall/Tc.pm +++ b/Shorewall/Perl/Shorewall/Tc.pm @@ -1055,7 +1055,7 @@ sub process_mangle_rule( ) { my ( $originalmark, $source, $dest, $protos, $ports, $sports, $user, $testval, $length, $tos , $connbytes, $helper, $headers, $probability , $dscp , $state, $time ); if ( $family == F_IPV4 ) { ( $originalmark, $source, $dest, $protos, $ports, $sports, $user, $testval, $length, $tos , $connbytes, $helper, $probability, $dscp, $state, $time ) = - split_line2( 'tcrules file', + split_line2( 'mangle file', { mark => 0, action => 0, source => 1, @@ -1080,7 +1080,7 @@ sub process_mangle_rule( ) { $headers = '-'; } else { ( $originalmark, $source, $dest, $protos, $ports, $sports, $user, $testval, $length, $tos , $connbytes, $helper, $headers, $probability, $dscp, $state, $time ) = - split_line2( 'tcrules file', + split_line2( 'mangle file', { mark => 0, action => 0, source => 1,