diff options
| author | Stephen Hemminger <stephen.hemminger@vyatta.com> | 2009-03-17 10:38:08 -0700 |
|---|---|---|
| committer | Stephen Hemminger <stephen.hemminger@vyatta.com> | 2009-03-17 10:38:08 -0700 |
| commit | c667c9b128af7a9d8344459c8c65ee9ee8703f02 (patch) | |
| tree | 7d81e69553460d081b899016bcc6b0c9e395baa5 /lib/Vyatta/Qos/FairQueue.pm | |
| parent | 426d6086ebecea13fe29721130f071284ebca899 (diff) | |
| download | vyatta-cfg-qos-c667c9b128af7a9d8344459c8c65ee9ee8703f02.tar.gz vyatta-cfg-qos-c667c9b128af7a9d8344459c8c65ee9ee8703f02.zip | |
Use select to avoid passing output path around
Easier to just use 'select' in perl to avoid passing file
descriptor everywhere.
Diffstat (limited to 'lib/Vyatta/Qos/FairQueue.pm')
| -rw-r--r-- | lib/Vyatta/Qos/FairQueue.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Vyatta/Qos/FairQueue.pm b/lib/Vyatta/Qos/FairQueue.pm index 327a32b..bc3a872 100644 --- a/lib/Vyatta/Qos/FairQueue.pm +++ b/lib/Vyatta/Qos/FairQueue.pm @@ -44,11 +44,11 @@ sub new { } sub commands { - my ( $self, $out, $dev ) = @_; + my ( $self, $dev ) = @_; - print {$out} "qdisc add dev $dev root sfq"; - print {$out} " perturb $self->{_perturb}" if ( defined $self->{_perturb} ); - print {$out} " limit $self->{_limit}" if ( defined $self->{_limit} ); + print "qdisc add dev $dev root sfq"; + print " perturb $self->{_perturb}" if ( $self->{_perturb} ); + print " limit $self->{_limit}" if ( $self->{_limit} ); print "\n"; } |