summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--win32/win32.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/win32/win32.c b/win32/win32.c
index 5b701e93f0..a5723d608b 100644
--- 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)