[perl #51674] op/alarm.t hangs on 5.11.0 (Windows Vista only)

From: "Robert May" <rob@themayfamily.me.uk>
Message-ID: <54bdc7510803130706q6523793ak1f3f1c6578fa97c1@mail.gmail.com>

p4raw-id: //depot/perl@33506

diff --git a/win32/win32.c b/win32/win32.c
index 5b701e9..a5723d6 100644 (file)
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -2127,8 +2127,7 @@ win32_async_check(pTHX)
      * Perl is calling win32_waitpid() inside a GUI application and the GUI
      * is generating messages before the process terminated.
      */
-    while (PeekMessage(&msg, NULL, 0, 0, PM_NOREMOVE|PM_NOYIELD))
-        /* keep going */ ;
+    PeekMessage(&msg, NULL, 0, 0, PM_NOREMOVE|PM_NOYIELD);
 
     /* Above or other stuff may have set a signal flag */
     if (PL_sig_pending)