From de48b5016dfc2b0bfbfe24af79192940f3812588 Mon Sep 17 00:00:00 2001
From: Stephen Hemminger <stephen.hemminger@vyatta.com>
Date: Fri, 20 Mar 2009 11:41:39 -0700
Subject: Fix problems created by switch to using 'select'
Some code was still using old interface.
---
lib/Vyatta/Qos/Match.pm | 2 +-
lib/Vyatta/Qos/ShaperClass.pm | 10 +++++-----
2 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/lib/Vyatta/Qos/Match.pm b/lib/Vyatta/Qos/Match.pm
index ecfa09d..587704f 100644
--- a/lib/Vyatta/Qos/Match.pm
+++ b/lib/Vyatta/Qos/Match.pm
@@ -73,7 +73,7 @@ sub filter {
if (defined $dsmark && defined $ip && defined $$ip{dsfield}) {
printf "filter add dev %s parent %x: protocol ip prio 1",
$dev, $parent;
- printf ${out} " handle %d tcindex", $$ip{dsfield};
+ printf " handle %d tcindex", $$ip{dsfield};
return;
}
diff --git a/lib/Vyatta/Qos/ShaperClass.pm b/lib/Vyatta/Qos/ShaperClass.pm
index 4caaddc..631fc75 100644
--- a/lib/Vyatta/Qos/ShaperClass.pm
+++ b/lib/Vyatta/Qos/ShaperClass.pm
@@ -152,9 +152,9 @@ sub sfqQdisc {
sub fifoQdisc {
my ( $self, $dev, $rate ) = @_;
- print ${out} "pfifo";
- print ${out} " limit $self->{_limit}" if ( $self->{_limit} );
- print ${out} "\n";
+ print "pfifo";
+ print " limit $self->{_limit}" if ( $self->{_limit} );
+ print "\n";
}
# Red is has way to many configuration options
@@ -181,9 +181,9 @@ sub redQdisc {
my $qmax = $qlimit / 8;
my $qmin = $qmax / 3;
- printf ${out} "red limit %d min %d max %d avpkt %d",
+ printf "red limit %d min %d max %d avpkt %d",
$qlimit, $qmin, $qmax, $avg;
- printf ${out} " burst %d probability 0.02 bandwidth %d ecn\n",
+ printf " burst %d probability 0.02 bandwidth %d ecn\n",
( 2 * $qmin + $qmax ) / ( 3 * $avg ), $rate / 1000;
}
--
cgit v1.2.3