From c667c9b128af7a9d8344459c8c65ee9ee8703f02 Mon Sep 17 00:00:00 2001 From: Stephen Hemminger Date: Tue, 17 Mar 2009 10:38:08 -0700 Subject: Use select to avoid passing output path around Easier to just use 'select' in perl to avoid passing file descriptor everywhere. --- lib/Vyatta/Qos/TrafficLimiter.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lib/Vyatta/Qos/TrafficLimiter.pm') diff --git a/lib/Vyatta/Qos/TrafficLimiter.pm b/lib/Vyatta/Qos/TrafficLimiter.pm index 5aea0f9..fd3460c 100644 --- a/lib/Vyatta/Qos/TrafficLimiter.pm +++ b/lib/Vyatta/Qos/TrafficLimiter.pm @@ -76,15 +76,15 @@ sub _define { } sub commands { - my ( $self, $out, $dev ) = @_; + my ( $self, $dev ) = @_; my $classes = $self->{_classes}; my $parent = 0xffff; - printf {$out} "qdisc add dev %s handle %x: ingress\n", $dev, $parent; + printf "qdisc add dev %s handle %x: ingress\n", $dev, $parent; foreach my $class (@$classes) { foreach my $match ( $class->matchRules() ) { - $match->filter( $out, $dev, $parent, $class->{priority} ); - printf {$out} " police rate %s burst %s drop flowid :%x\n", + $match->filter( $dev, $parent, $class->{priority} ); + printf " police rate %s burst %s drop flowid :%x\n", $class->{rate}, $class->{burst}, $class->{id}; } } -- cgit v1.2.3