use POSIX qw(dup2);

use POSIX qw(dup2 :sys_wait_h);

$SIG{CHLD} = 'IGNORE';

#$SIG{CHLD} = 'IGNORE';

            if (kill(0, $pid) != 1) { # see if we can signal the process

            my $unlock = 0;
            if ($pid == $$) {
                # Work around sqlite locking timeouts: if the child
                # barfed because of a locked DB before updating the
                # `locker' field, then `locker' is still set to $$.
                # So if after 2 minutes it hasn't been updated,
                # unlock the build.  !!! need a better fix for those
                # locking timeouts.
                if ($build->schedulingInfo->starttime + 10 < time) {
                    $unlock = 1;
                }
            } elsif (kill(0, $pid) != 1) { # see if we can signal the process
                $unlock = 1;
            }
            if ($unlock) {

        # Clean up zombies.
        while ((waitpid(-1, &WNOHANG)) > 0) { };
        

    sleep 10;

    sleep 30;