diff options
Diffstat (limited to 'scripts/VyattaQosTrafficShaper.pm')
-rw-r--r-- | scripts/VyattaQosTrafficShaper.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/scripts/VyattaQosTrafficShaper.pm b/scripts/VyattaQosTrafficShaper.pm index 903aeeb..9bbd899 100644 --- a/scripts/VyattaQosTrafficShaper.pm +++ b/scripts/VyattaQosTrafficShaper.pm @@ -171,7 +171,8 @@ sub commands { my $classes = $self->{_classes}; my @tc = ( ); - print {$out} "qdisc add dev $dev root handle 1: htb default $defaultId\n"; + print {$out} "qdisc add dev $dev root handle 1: htb default " + . sprintf("%04x",$defaultId) . "\n"; print {$out} "class add dev $dev parent 1: classid 1:1 htb rate $rate\n"; foreach my $class (@$classes) { |