diff options
| author | David Mitchell <davem@iabyn.com> | 2007-05-03 23:39:23 +0100 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2007-05-10 08:09:18 +0000 |
| commit | 5e162c31c5aae678d61e707c0e7807818eeb40d5 (patch) | |
| tree | c0747f7c13ed9549156270ba93ee5cc9ddf66d28 /win32 | |
| parent | 34e099354df9ac5c77ff85fd65eadb825767cf8e (diff) | |
| download | perl-5e162c31c5aae678d61e707c0e7807818eeb40d5.tar.gz | |
Re: [perl #42869] Problem killing a pseudo-forked child on Win32
Message-ID: <20070503213923.GH24804@iabyn.com>
Fixes the failure to kill a pseudo-forked child on Win32 described in
[perl #42869], but the "Free to wrong pool" error remains
p4raw-id: //depot/perl@31188
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/win32.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/win32/win32.c b/win32/win32.c index c69c2a7bda..cb2bbdae8d 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -1348,6 +1348,7 @@ win32_kill(int pid, int sig) /* Yield and wait for the other thread to send us its message_hwnd */ Sleep(0); win32_async_check(aTHX); + hwnd = w32_pseudo_child_message_hwnds[child]; ++count; } if (hwnd != INVALID_HANDLE_VALUE) { |