From: David Mitchell <davem@iabyn.com>
Date: Thu, 3 May 2007 22:39:23 +0000 (+0100)
Subject: Re: [perl #42869] Problem killing a pseudo-forked child on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5e162c31c5aae678d61e707c0e7807818eeb40d5;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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) {