Bug fix to handle change in output of 'tc -s -d qdisc show' in 2.6.10 kernel

[mom.git] / pl_mom.pl

diff --git a/pl_mom.pl b/pl_mom.pl
index 8ed352f..86a56c8 100755 (executable)
--- a/pl_mom.pl
+++ b/pl_mom.pl
@@ -5,7 +5,7 @@ use Sys::Syslog;
 use Sys::Hostname;
 #use LWP::Simple;
 
-$debug = 1;
+$debug = 0;
 $proc = "pl_mom";
 $alias_addr = "pl-mom\@planet-lab.org";
 $from_addr = "support\@planet-lab.org";
@@ -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/) {