Use select to avoid passing output path around

Easier to just use 'select' in perl to avoid passing file
descriptor everywhere.

1 files changed, 10 insertions, 10 deletions

diff --git a/lib/Vyatta/Qos/NetworkEmulator.pm b/lib/Vyatta/Qos/NetworkEmulator.pm
index 47b0174..1458dd4 100644
--- a/lib/Vyatta/Qos/NetworkEmulator.pm
+++ b/lib/Vyatta/Qos/NetworkEmulator.pm
@@ -52,37 +52,37 @@ sub new {
 }
 
 sub commands {
-    my ( $self, $out, $dev ) = @_;
+    my ( $self, $dev ) = @_;
     my $rate = $self->{_rate};
 
     if ($rate) {
         my $burst = $self->{_burst};
         $burst or $burst = "15K";
 
-        printf {$out} "qdisc add dev %s root handle 1:0 tbf rate %s burst %s\n",
+        printf "qdisc add dev %s root handle 1:0 tbf rate %s burst %s\n",
           $dev, $rate, $burst;
-        printf {$out} "qdisc add dev %s parent 1:1 handle 10: netem";
+        printf "qdisc add dev %s parent 1:1 handle 10: netem";
     }
     else {
-        printf {$out} "qdisc add dev %s root netem";
+        printf "qdisc add dev %s root netem";
     }
 
     my $delay = $self->{_delay};
-    print {$out} " delay $delay" if ($delay);
+    print " delay $delay" if ($delay);
 
     my $limit = $self->{_limit};
-    print {$out} " limit $limit" if ($limit);
+    print " limit $limit" if ($limit);
 
     my $drop = $self->{_drop};
-    print {$out} " drop $drop" if ($drop);
+    print " drop $drop" if ($drop);
 
     my $corrupt = $self->{_corrupt};
-    print {$out} " corrupt $corrupt" if ($corrupt);
+    print " corrupt $corrupt" if ($corrupt);
 
     my $reorder = $self->{_reorder};
-    print {$out} " reorder $reorder" if ($reorder);
+    print " reorder $reorder" if ($reorder);
 
-    print {$out} "\n";
+    print "\n";
 }
 
 sub isChanged {