not decimal. Fix things so that it works with VNET, which classifies
packets from xid 500 into class 1:1f4, *not* 1:500.
- set the "default" minor class number to ffff to emphasize this point.
}
my $status = `tc -s -d qdisc show`;
- my $sliceid = "9999";
+ my $sliceid = 0xffff;
@Lines = split(/\n/, $status);
foreach $line ( @Lines ) {
if ($line =~ /qdisc pfifo (.*): dev/) {
- $sliceid = $1;
+ $sliceid = hex($1);
} else {
if ($line =~ /Sent (.*) bytes/) {
my $bytes = $1;
- if ($sliceid != 9999) {
+ if ($sliceid != 0xffff) {
my $slice = $Name{$sliceid};
if ($debug && $bytes) {
print "Slice: $slice ($sliceid), bytes $bytes\n";