Bug fix to handle change in output of 'tc -s -d qdisc show' in 2.6.10 kernel
[mom.git] / pl_mom.pl
index 13c79e4..86a56c8 100755 (executable)
--- a/pl_mom.pl
+++ b/pl_mom.pl
@@ -251,7 +251,7 @@ sub get_baseline_counts {
     my $sliceid = "9999";
     @Lines = split(/\n/, $status);
     foreach $line ( @Lines ) {
-       if ($line =~ /qdisc pfifo (.*):/) {
+       if ($line =~ /qdisc pfifo (.*): dev/) {
            $sliceid = $1;
        } else {
            if ($line =~ /Sent (.*) bytes/) {