Codebase list perl6-tap-harness / 9590631
Explicitly devnull stderr output when asked Leon Timmermans 6 years ago
1 changed file(s) with 2 addition(s) and 2 deletion(s). Raw diff Collapse all Expand all
805805 }
806806 when 'merge' {
807807 warn "Merging isn't supported yet on Asynchronous streams";
808 $async.stderr;
808 $async.bind-stderr(open($*SPEC.devnull, :w))
809809 }
810810 when 'ignore' {
811 $async.stderr;
811 $async.bind-stderr(open($*SPEC.devnull, :w))
812812 }
813813 when IO::Handle:D {
814814 $async.stderr.lines(:close).act({ $err.say($_) });