in reply to Getting less output using prove's --merge option

I'm not sure what the problem is, but for non-MSWin, the culprit is this block: 
else {
    $err = $merge ? '' : IO::Handle->new;
    eval { $pid = open3( '<&STDIN', $out, $err, @command ); };
    die "Could not execute (@command): $@" if $@;
    $sel = $merge ? undef : IO::Select->new( $out, $err );
}

[download]

What's going on there? Seems like $err is set to an empty string, which should create a new filehandle when calling open3. Then $sel is then set to undef, but I have no idea what that means.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Replies are listed 'Best First'.
Re^2: Getting less output using prove's --merge option
by nysus (Parson) on Feb 28, 2025 at 15:28 UTC
[reply]
Re^2: Getting less output using prove's --merge option
by nysus (Parson) on Feb 28, 2025 at 15:16 UTC
[reply]

In Section Seekers of Perl Wisdom