This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
win32_async_check must *always* check for pending signals
authorJan Dubois <jand@activestate.com>
Fri, 17 Mar 2006 12:23:01 +0000 (04:23 -0800)
committerSteve Hay <SteveHay@planit.com>
Mon, 20 Mar 2006 09:34:57 +0000 (09:34 +0000)
From: "Jan Dubois" <jand@ActiveState.com>
Message-ID: <00d401c64a00$96af8ae0$2217a8c0@candy>

p4raw-id: //depot/perl@27545

win32/win32.c

index 240aa62..b10d95f 100644 (file)
@@ -1793,6 +1793,8 @@ win32_async_check(pTHX)
          * is generating messages before the process terminated.
          */
         PeekMessage(&msg, NULL, 0, 0, PM_NOREMOVE|PM_NOYIELD);
+        if (PL_sig_pending)
+            despatch_signals();
         return 1;
     }