diff options
-rw-r--r-- | win32/win32.c | 3 |
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) |