> I haven't been able to construct a simple test program, so I'll have to
> explain it.

> Versions are expect-5.43, tcl8.4.12, SunOS 5.8.

> Simplified code would be something like this:

>    catch {socket $server $port} serverSocket
>    fconfigure $serverSocket -blocking 1 -buffering line

>    spawn -noecho -leaveopen $serverSocket

>    exp_send "exit\r"

>    expect {
>       eof {
>           puts "got eof, and leaving"
>           return "bleagh"
>       }

>       timeout {
>             puts "timeout on command."
>       }

>       -re "prompt:" {
>          puts "($spawn_id) gave prompt"
>       }
>    }

> On a random basis, about 1 in 20 tries, the closing TCP connection gets
> ECONNRESET at the read in ExpInputProc() instead of a nice bytesRead=0.

> This causes a nasty error exit instead of a call to the eof case.

> ExpInputProc() should have a few lines added to it so that it looks more
> like the TcpInputProc in tcl:

> TcpInputProc(instanceData, buf, bufSize, errorCodePtr)

>    bytesRead = recv(statePtr->fd, buf, (size_t) bufSize, 0);
>    if (bytesRead > -1) {
>       return bytesRead;
>    }
>    if (errno == ECONNRESET) {
>       /*
>        * Turn ECONNRESET into a soft EOF condition.
>        */
>       return 0;
>    }

> --
> *
> * Ed Attfield                                   phone: 613-763-3102
> * Nortel Networks                        email: attfi@nortel.com
> *
> * Unix is user friendly ..
> * It's just very choosy about who its friends are.
> *                 -- anonymous