This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [perl #42869] Problem killing a pseudo-forked child on Win32
authorDavid Mitchell <davem@iabyn.com>
Thu, 3 May 2007 22:39:23 +0000 (23:39 +0100)
committerSteve Hay <SteveHay@planit.com>
Thu, 10 May 2007 08:09:18 +0000 (08:09 +0000)
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

win32/win32.c

index c69c2a7..cb2bbda 100644 (file)
@@ -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) {