diff options
Diffstat (limited to 'lib')
| -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; } |