use IPC::Open3; use IO::Select; use IO::Handle; # my $stdout = IO::Select->new(); my $stdout_handle = IO::Handle->new(); $stdout_handle->autoflush(1); $stdout->add( \*STDOUT ); $stdout->add($stdout_handle); if ( my $pid = open3( undef, $stdout_handle, undef, $command ) ) { return TAPx::Parser::Iterator->new($stdout_handle); } else { $self->exit( $? >> 8 ); $self->error("Could not execute ($command): $!"); return; } #### # Failed test ''bignum' should parse successfully' # at t/010-regression.t line 2257. # open3: IO::Pipe: Can't spawn-NOWAIT: No such file or directory at C:\TAPx-Parser-0.50_03\blib\lib/TAPx/Parser/Source.pm line 103