| Subject: | t/run.t fails on OpenBSD with version 0.80 |
The test script t/run.t fails on OpenBSD on test 126. Below is the complete debugging output from the test 126.
IPC::Run 0016 0123456----- [#26(17815)]: debugging fd is 6
IPC::Run 0016 0123456----- [#26(17815)]: ****** harnessing *****
IPC::Run 0016 0123456----- [#26(17815)]: parsing 'noinherit'
IPC::Run 0016 0123456----- [#26(17815)]: parsing [ './perl', '-le', 'open( STDIN
, "<&5" ) or die $! ; print <STDIN>' ]
IPC::Run 0016 0123456----- [#26(17815)]: parsing '5<'
IPC::Run 0016 0123456----- [#26(17815)]: parsing '>'
IPC::Run 0016 0123456----- [#26(17815)]: parsing '2>'
IPC::Run 0016 0123456----- [#26(17815)]: ** starting
IPC::Run 0016 0123456----- [#26(17815)]: './perl' contains '/'
IPC::Run 0016 0123456----- [#26(17815)]: kid 1 to read 5 from SCALAR
IPC::Run 0016 012345678--- [#26(17815)]: pipe_nb pipe() = ( 7, 8 )
IPC::Run 0016 012345678--- [#26(17815)]: fcntl( 8, F_SETFL, O_NONBLOCK )
IPC::Run 0016 0123456789-- [#26(17815)]: dup( 7 ) = 9
IPC::Run 0016 01234567890- [#26(17815)]: dup( 8 ) = 10
IPC::Run 0016 01234567890- [#26(17815)]: pipe_nb() = ( 9, 10 )
IPC::Run 0016 0123456--90- [#26(17815)]: kid 1 to write 1 to SCALAR
IPC::Run 0016 01234567890- [#26(17815)]: pipe() = ( 7, 8 )
IPC::Run 0016 01234567890- [#26(17815)]: kid 1 to write 2 to SCALAR
IPC::Run 0016 0123456789012 [#26(17815)]: pipe() = ( 11, 12 )
IPC::Run 0016 0123456789012 [#26(17815)]: kid 1[]'s 5 is my 10
IPC::Run 0016 0123456789012 [#26(17815)]: kid 1[]'s 1 is my 7
IPC::Run 0016 0123456789012 [#26(17815)]: kid 1[]'s 2 is my 11
IPC::Run 0016 0123456789012 [#26(17815)]: child: `'./perl' -le 'open( STDIN, "<&
5" ) or die $! ; print <STDIN>'`
IPC::Run 0016 0123456789012 [#26(17815)]: opening sync pipe
IPC::Run 0016 012345678901234 [#26(17815)]: pipe() = ( 13, 14 )
IPC::Run 0016 012345678901234 [#26(17815)]: fork() = 5433
IPC::Run 0016 01234567890123 [#26(17815)]: close( 14 ) = 0
IPC::Run 0016 012345678901234 [#26(5433) perl]: open fds: 11 7 9 12 14 8 13 10
IPC::Run 0016 01234567890-234 [#26(5433) perl]: close( 11 ) = 0
IPC::Run 0016 0123456-890-234 [#26(5433) perl]: close( 7 ) = 0
IPC::Run 0016 0123456-890-2-4 [#26(5433) perl]: close( 13 ) = 0
IPC::Run 0016 0123456-89--2-4 [#26(5433) perl]: close( 10 ) = 0
IPC::Run 0016 01234567890123 [#26(17815)]: read( 13 ) = 68 chars 'Bad file descr
iptor: dup2( 9, 5 ) at ../lib/IPC/Run/t/run.t line 33
IPC::Run 0016 01234567890123 [#26(17815)]: '
IPC::Run 0016 0123456789012 [#26(17815)]: close( 13 ) = 0
IPC::Run 0016 0123456-89--2-4 [#26(5433) perl]: write( 14, 'Bad file descriptor:
dup2( 9, 5 ) at ../lib/IPC/Run/t/run.t line 33
IPC::Run 0016 0123456-89--2-4 [#26(5433) perl]: ' ) = 68
IPC::Run 0016 0123456789012 [#26(17815)]: caught Bad file descriptor: dup2( 9, 5
) at ../lib/IPC/Run/t/run.t line 33
IPC::Run 0016 0123456789012 [#26(17815)]: at ../lib/IPC/Run/t/run.t line 33
IPC::Run 0016 012345678-012 [#26(17815)]: close( 9 ) = 0
IPC::Run 0016 01234567--012 [#26(17815)]: close( 8 ) = 0
IPC::Run 0016 01234567--01 [#26(17815)]: close( 12 ) = 0
IPC::Run 0016 01234567--01 [#26(17815)]: cleaning up
IPC::Run 0016 01234567--01 [#26(17815)]: cleaning up pipes
IPC::Run 0016 01234567--01 [#26(17815)]: closing fd 10 (kid's fd 5)
IPC::Run 0016 01234567---1 [#26(17815)]: close( 10 ) = 0
IPC::Run 0016 01234567---1 [#26(17815)]: closing fd 7 (kid's stdout)
IPC::Run 0016 0123456----1 [#26(17815)]: close( 7 ) = 0
IPC::Run 0016 0123456----1 [#26(17815)]: closing fd 11 (kid's stderr)
IPC::Run 0016 0123456----- [#26(17815)]: close( 11 ) = 0
IPC::Run 0016 0123456----- [#26(17815)]: cleaning up kid 1
IPC::Run 0016 0123456----- [#26(17815)]: cleaning up filters
IPC::Run 0016 0123456----- [#26(17815)]: done cleaning up
Bad file descriptor: dup2( 9, 5 ) at ../lib/IPC/Run/t/run.t line 33
at ../lib/IPC/Run/t/run.t line 33