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
[perl5.git] / 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) {