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

diff --git a/win32/win32.c b/win32/win32.c
index c69c2a7..cb2bbda 100644 (file)
--- 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) {