Change 33506 by [EMAIL PROTECTED] on 2008/03/13 14:31:21
Subject: [PATCH] [perl #51674] op/alarm.t hangs on 5.11.0 (Windows
Vista only)
From: "Robert May" <[EMAIL PROTECTED]>
Date: Thu, 13 Mar 2008 19:36:33 +0530
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/win32/win32.c#297 edit
Differences ...
==== //depot/perl/win32/win32.c#297 (text) ====
Index: perl/win32/win32.c
--- perl/win32/win32.c#296~33370~ 2008-02-25 09:42:38.000000000 -0800
+++ perl/win32/win32.c 2008-03-13 07:31:21.000000000 -0700
@@ -2127,8 +2127,7 @@
* 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)
End of Patch.
