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/DropTail.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/DropTail.pm')
| -rw-r--r-- | lib/Vyatta/Qos/DropTail.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Vyatta/Qos/DropTail.pm b/lib/Vyatta/Qos/DropTail.pm index 09508a8..1b14a81 100644 --- a/lib/Vyatta/Qos/DropTail.pm +++ b/lib/Vyatta/Qos/DropTail.pm @@ -39,12 +39,12 @@ sub new { } sub commands { - my ( $self, $out, $dev ) = @_; + my ( $self, $dev ) = @_; my $limit = $self->{_limit}; my $cmd = "qdisc add dev $dev root pfifo"; $cmd .= " limit $limit" if defined $limit; - printf {$out} "%s\n", $cmd; + printf "%s\n", $cmd; } sub isChanged { |