From bf10e104b7e8a127ec827cf79450d0bf2ace66f6 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Mon, 2 May 2011 07:25:21 -0700
Subject: [PATCH] Fix bug in tcfilters with device numbers > 9

---
 Shorewall/Perl/Shorewall/Tc.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Shorewall/Perl/Shorewall/Tc.pm b/Shorewall/Perl/Shorewall/Tc.pm
index e4d0451a8..811d815de 100644
--- a/Shorewall/Perl/Shorewall/Tc.pm
+++ b/Shorewall/Perl/Shorewall/Tc.pm
@@ -981,7 +981,7 @@ sub process_tc_filter() {
 
     ( $device , my $devref ) = dev_by_number( $device );
 
-    my $devnum = $devref->{number};
+    my $devnum = in_hex $devref->{number};
 
     my $tcref = $tcclasses{$device};