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/RateLimiter.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/RateLimiter.pm')
| -rw-r--r-- | lib/Vyatta/Qos/RateLimiter.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/Vyatta/Qos/RateLimiter.pm b/lib/Vyatta/Qos/RateLimiter.pm index f7585e6..c20646e 100644 --- a/lib/Vyatta/Qos/RateLimiter.pm +++ b/lib/Vyatta/Qos/RateLimiter.pm @@ -49,10 +49,9 @@ sub new { } sub commands { - my ( $self, $out, $dev ) = @_; - + my ( $self, $dev ) = @_; - printf {$out} "qdisc add dev %s root tbf rate %s latency %s burst %s\n", + printf "qdisc add dev %s root tbf rate %s latency %s burst %s\n", $dev, $self->{_rate}, $self->{_latency}, $self->{_burst}; } |