Close IO::Hadle/IO::Pipe when done reading

Raku · Apr 23, 2017 · 4ff82b1 · 4ff82b1
1 parent 6e6dc52
commit 4ff82b1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/TAP.pm b/lib/TAP.pm
@@ -788,7 +788,7 @@ package Runner {
                     $async.stderr;
                 }
                 when IO::Handle:D {
-                    $async.stderr.lines.act({ $err.say($_) });
+                    $async.stderr.lines(:close).act({ $err.say($_) });
                 }
                 when Supply:D {
                     $async.stderr.act({ $err.emit($_) }, :done({ $err.done }), :quit({ $err.quit($^reason) }));
@@ -869,7 +869,7 @@ package Runner {
                         when Supply:D {
                             my $tmp = run($!source.path, $!source.args, :out, :!chomp, :err);
                             start {
-                                $!source.err.emit($_) for $tmp.err.lines;
+                                $!source.err.emit($_) for $tmp.err.lines(:close);
                                 $!source.err.done;
                             }
                             $tmp;