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