From 45c495ffe32c953ef9d95a27da39bb9ce0eba87e Mon Sep 17 00:00:00 2001 From: teastep Date: Wed, 11 Apr 2007 23:55:08 +0000 Subject: [PATCH] Fix a buglet (malformed run-time warning message) git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5902 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb --- Shorewall-perl/Shorewall/Tc.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/Shorewall-perl/Shorewall/Tc.pm b/Shorewall-perl/Shorewall/Tc.pm index b493bd883..eb9018529 100644 --- a/Shorewall-perl/Shorewall/Tc.pm +++ b/Shorewall-perl/Shorewall/Tc.pm @@ -434,7 +434,7 @@ sub setup_traffic_shaping() { emit 'else'; push_indent; - emit qq(error_message "\"WARNING: Device $device not up and configured -- traffic-shaping configuration skipped\""); + emit qq(error_message "WARNING: Device $device not up and configured -- traffic-shaping configuration skipped"); emit "${dev}_exists="; pop_indent; emit "fi\n"; @@ -481,7 +481,6 @@ sub setup_traffic_shaping() { # emit "run_tc filter add dev $device parent $devref->{number}:0 protocol ip prio 10 u32 match ip protocol 6 0xff match u8 0x05 0x0f at 0 match u16 0x0000 0xffc0 at 2 match u8 0x10 0xff at 33 flowid $classid" if $tcref->{tcp_ack}; - for my $tospair ( @{$tcref->{tos}} ) { my ( $tos, $mask ) = split q(/), $tospair; emit "run_tc filter add dev $device parent $devnum:0 protocol ip prio 10 u32 match ip tos $tos $mask flowid $classid";