Hi everyone!

Most of you are probably familiar with perlipc and, specifically, the "Complete dissociation of child from parent" section of it.
I myself used the code from that page a few times thinking that it does indeed completely detach child from parent. Until today that is.
If my understanding of what setsid() is supposed to do is correct, as soon as it gets called and returns 'true', parent process should no longer see the process that called setsid() as child.
Consider the fragment of code below.

daemon();

sub daemon{
        # Create a daemon which does nothing but "sleep 100"
        my $dpid = fork();
        return 0 unless defined $dpid;
        unless ($dpid){
                exit 255 unless open STDIN, '/dev/null';
                exit 255 unless open STDOUT, '>/dev/null';
                exit 255 unless open STDERR, '>/dev/null';
                exit 255 unless setsid();
                sleep 100;
                exit 0;
        }
        return 0 unless wait() == -1;
        return $dpid;
}
[download]

On HPUX 11, Perl 5.6.1, this sub wait()s for the daemon to finish as if it was still a normal child process. And I know that setsid() succeeded since parent keeps wait()ing for 100 seconds.
So, what is this? A feature? Is this how setsid() is supposed to work? Or should I not work on Sundays and get more sleep?

--perlplexer