diff options
| author | Jan Dubois <jand@activestate.com> | 2011-03-15 16:53:00 -0700 |
|---|---|---|
| committer | Jan Dubois <jand@activestate.com> | 2011-03-15 17:14:16 -0700 |
| commit | 8a3cb9c669c3017b0610c1d6dfaec59426203252 (patch) | |
| tree | 6da7f63ae2c98872bc23e8aafc57e886cc7e1422 /win32/perlhost.h | |
| parent | 3aa0ac5aa5f5cff1b95ae5ff8641818c450e4b16 (diff) | |
| download | perl-8a3cb9c669c3017b0610c1d6dfaec59426203252.tar.gz | |
Hang on to child handle after signalling SIGTERM
This is a refinement of commit 3aa0ac5aa. We still want to hang on
to the mapping between pseudo-process and thread handle, so that we
can still waitpid() after signalling SIGTERM. We just don't want to
wait implicitly on the signalled process anymore.
Diffstat (limited to 'win32/perlhost.h')
| -rw-r--r-- | win32/perlhost.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/win32/perlhost.h b/win32/perlhost.h index 70a2f65639..0240044c11 100644 --- a/win32/perlhost.h +++ b/win32/perlhost.h @@ -1877,6 +1877,7 @@ PerlProcFork(struct IPerlProc* piPerl) } w32_pseudo_child_handles[w32_num_pseudo_children] = handle; w32_pseudo_child_pids[w32_num_pseudo_children] = id; + w32_pseudo_child_sigterm[w32_num_pseudo_children] = 0; ++w32_num_pseudo_children; # endif return -(int)id; |