From 64e49229f8d824ef60f4a550402d50d0c20c526e Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Mon, 15 Nov 2010 08:14:31 -0800
Subject: [PATCH] Simply variable initialization

---
 Shorewall/Perl/Shorewall/Tc.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/Shorewall/Perl/Shorewall/Tc.pm b/Shorewall/Perl/Shorewall/Tc.pm
index 4e755b477..44df4b73c 100644
--- a/Shorewall/Perl/Shorewall/Tc.pm
+++ b/Shorewall/Perl/Shorewall/Tc.pm
@@ -947,9 +947,7 @@ sub process_tc_filter() {
 
     fatal_error "Invalid INTERFACE:CLASS ($devclass)" if defined $rest || ! ($device && $class );
 
-    my $ip   = $family == F_IPV4 ? 'ip' : 'ipv6';
-    my $ip32 = $family == F_IPV4 ? 'ip' : 'ip6';
-    my $prio = $family == F_IPV4 ?  10  :  11;;
+    my ( $ip, $ip32, $prio ) = $family == F_IPV4 ? ('ip', 'ip', 10 ) : ('ipv6', 'ip6', 11 );
 
     my $lo = $family - 2; #Length offset: 2 for IPV4 and 4 for IPV6.