From 59ea5112017e64a96b7bca4911cb82999304f77b Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Wed, 4 May 2011 16:20:54 -0700 Subject: [PATCH] Complain if there is no default class defined --- Shorewall/Perl/Shorewall/Tc.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Shorewall/Perl/Shorewall/Tc.pm b/Shorewall/Perl/Shorewall/Tc.pm index a75e85e60..a172e6dc5 100644 --- a/Shorewall/Perl/Shorewall/Tc.pm +++ b/Shorewall/Perl/Shorewall/Tc.pm @@ -1379,6 +1379,8 @@ sub setup_traffic_shaping() { my $devnum = in_hexp $devref->{number}; my $r2q = int calculate_r2q $devref->{out_bandwidth}; + fatal_error "No default class defined for device $device" unless $devref->{default}; + $device = physical_name $device; my $dev = chain_base( $device );