This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] win32_async_check() can still loop indefinitely
authorJan Dubois <jand@activestate.com>
Mon, 15 Jan 2007 19:25:11 +0000 (11:25 -0800)
committerSteve Hay <SteveHay@planit.com>
Thu, 18 Jan 2007 11:36:05 +0000 (11:36 +0000)
Message-ID: <rigoq25vda3sg4i7ppdb5o2jhvuiq15kqj@4ax.com>

p4raw-id: //depot/perl@29868

win32/win32.c

index a829b17..43c7f3f 100644 (file)
@@ -2143,7 +2143,7 @@ win32_msgwait(pTHX_ DWORD count, LPHANDLE handles, DWORD timeout, LPDWORD result
        timeout += ticks;
     }
     while (1) {
-       DWORD result = MsgWaitForMultipleObjects(count,handles,FALSE,timeout-ticks, QS_ALLEVENTS);
+       DWORD result = MsgWaitForMultipleObjects(count,handles,FALSE,timeout-ticks, QS_POSTMESSAGE|QS_TIMER);
        if (resultp)
           *resultp = result;
        if (result == WAIT_TIMEOUT) {