diff options
| author | Robert May <robertmay@cpan.org> | 2008-03-14 01:06:33 +0530 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-03-13 14:31:21 +0000 |
| commit | 4386d69d88a88d6f902f645c767ed76a8c9ecf0e (patch) | |
| tree | 1e80a9de55d13f908f6d539d4023de00c831b541 /win32/win32.c | |
| parent | 183ac38d1dc9c92293270377f1f75eb5bf966874 (diff) | |
| download | perl-4386d69d88a88d6f902f645c767ed76a8c9ecf0e.tar.gz | |
[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
Diffstat (limited to 'win32/win32.c')
| -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) |