const char *filename = SvPV_nolen(file);
pid_t pid;
char **argv, **envp;
- sigset_t set, old, cset;
+ sigset_t set, old;
int ret, perrnum, cerrnum = 0;
+ int chld_is_member;
AV2C_COPY(argv, cmd);
AV2C_COPY(envp, env);
- ret = sigfillset(&set);
- assert(ret == 0 && "BUG calling sigfillset");
- ret = sigprocmask(SIG_SETMASK, &set, &old);
- assert(ret == 0 && "BUG calling sigprocmask to block");
- ret = sigemptyset(&cset);
- assert(ret == 0 && "BUG calling sigemptyset");
- ret = sigaddset(&cset, SIGCHLD);
- assert(ret == 0 && "BUG calling sigaddset for SIGCHLD");
+ if (sigfillset(&set)) return -1;
+ if (sigprocmask(SIG_SETMASK, &set, &old)) return -1;
+ chld_is_member = sigismember(&old, SIGCHLD);
+ if (chld_is_member < 0) return -1;
+ if (chld_is_member > 0)
+ sigdelset(&old, SIGCHLD);
+
pid = vfork();
if (pid == 0) {
int sig;
exit_err(&cerrnum);
}
- /*
- * don't bother unblocking other signals for now, just SIGCHLD.
- * we don't want signals to the group taking out a subprocess
- */
- (void)sigprocmask(SIG_UNBLOCK, &cset, NULL);
+ (void)sigprocmask(SIG_SETMASK, &old, NULL);
execve(filename, argv, envp);
exit_err(&cerrnum);
}
perrnum = errno;
+ if (chld_is_member > 0)
+ sigaddset(&old, SIGCHLD);
ret = sigprocmask(SIG_SETMASK, &old, NULL);
assert(ret == 0 && "BUG calling sigprocmask to restore");
if (cerrnum) {
chdir $cd or die "chdir $cd: $!";
}
$SIG{$_} = 'DEFAULT' for keys %SIG;
- my $cset = POSIX::SigSet->new();
- $cset->addset(POSIX::SIGCHLD) or die "can't add SIGCHLD: $!";
- sigprocmask(SIG_UNBLOCK, $cset) or
- die "can't unblock SIGCHLD: $!";
+ $old->delset(POSIX::SIGCHLD) or die "delset SIGCHLD: $!";
+ sigprocmask(SIG_SETMASK, $old) or die "SETMASK: ~SIGCHLD: $!";
if ($ENV{MOD_PERL}) {
exec which('env'), '-i', @$env, @$cmd;
die "exec env -i ... $cmd->[0] failed: $!\n";