I am beginning to see some... unanticipated behaviour from this. With the way your loop is set up, the forked server will not notice the pipe is broken until the file has changed.

For example,

server.pl 59683: server started on port 8870 at Wed Apr  5 16:28:55 20
+00
server.pl 59683: connection from localhost [ 127.0.0.1 ] at port 2110 
+at Wed Apr  5 16:29:16 2000
server.pl 59683: begat 59693 at Wed Apr  5 16:29:16 2000
[download]

I broke that connection at 16:29:25. It is now 16:32:08 and I have not seeen the reap message. If cause the file I am monitoring to be updated ( approx 16:33:09 ), the reaping code is fired and I see:

broken pipe at server.pl line 50
        main::SELFREAP('PIPE') called at server.pl line 82
        main::__ANON__() called at server.pl line 113
        main::spawn('CODE(0x804e054)') called at server.pl line 89
server.pl 59683: reaped 59693 with  exit 65280 at Wed Apr  5 16:34:02 
+2000
[download]

If I add this:

if ( eof(<STDIN> ) {
    confess "No more socket?";
    $nodie = 0;  last;
}
[download]

after your call to seek, the spawned server dies when I would expect.

If I am still smoking crack, I will give up on this problem a apologize again for wasting everybody's time.

Mik
Mik Firestone ( perlus bigotus maximus )