From c90006ecf8c3f358e30b65653d9cd7c45439b2cb Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Wed, 27 Jun 2012 11:34:19 -0700 Subject: [PATCH] Correct another logical name bug -- this time in TC 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 756436fb1..26632af3a 100644 --- a/Shorewall/Perl/Shorewall/Tc.pm +++ b/Shorewall/Perl/Shorewall/Tc.pm @@ -1884,7 +1884,7 @@ sub process_traffic_shaping() { my $lsceil = $tcref->{lsceil}; my $quantum = calculate_quantum $rate, calculate_r2q( $devref->{out_bandwidth} ); - $classids{$classid}=$device; + $classids{$classid}=$devname; my $priority = $tcref->{priority} << 8; my $parent = in_hexp $tcref->{parent}; @@ -2002,7 +2002,7 @@ sub process_traffic_shaping() { my $devicenumber = in_hexp $devref->{number}; my $classid = join( ':', $devicenumber, $classnum); - $classids{$classid}=$device; + $classids{$classid}=$devname; } } }