diff options
| author | Stephen Hemminger <stephen.hemminger@vyatta.com> | 2009-03-20 11:41:39 -0700 |
|---|---|---|
| committer | Stephen Hemminger <stephen.hemminger@vyatta.com> | 2009-03-20 11:41:39 -0700 |
| commit | de48b5016dfc2b0bfbfe24af79192940f3812588 (patch) | |
| tree | e90b5ba9f7d11789bdd905b241ab9720a636a67c | |
| parent | c478a26aaca7dc7fcd55c628eae73189ff0c74bc (diff) | |
| download | vyatta-cfg-qos-de48b5016dfc2b0bfbfe24af79192940f3812588.tar.gz vyatta-cfg-qos-de48b5016dfc2b0bfbfe24af79192940f3812588.zip | |
Fix problems created by switch to using 'select'
Some code was still using old interface.
| -rw-r--r-- | lib/Vyatta/Qos/Match.pm | 2 | ||||
| -rw-r--r-- | 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; } |