From: Robert May <robertmay@cpan.org>
Date: Thu, 13 Mar 2008 19:36:33 +0000 (+0530)
Subject: [perl #51674] op/alarm.t hangs on 5.11.0 (Windows Vista only)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4386d69d88a88d6f902f645c767ed76a8c9ecf0e;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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)