Change 14867 by jhi@alpha on 2002/02/25 14:44:07
Subject: Re: [PATCH bleadperl] socketpair.t
From: Nikola Knezevic <[EMAIL PROTECTED]>
Date: Sun, 24 Feb 2002 10:31:25 +0100
Message-ID: <[EMAIL PROTECTED]>
(the pid half only)
Affected files ...
.... //depot/perl/win32/win32.c#190 edit
Differences ...
==== //depot/perl/win32/win32.c#190 (text) ====
Index: perl/win32/win32.c
--- perl/win32/win32.c.~1~ Mon Feb 25 08:00:05 2002
+++ perl/win32/win32.c Mon Feb 25 08:00:05 2002
@@ -1094,8 +1094,9 @@
}
break;
default:
- /* We fake signals to pseudo-processes using Win32 message queue */
- if (PostThreadMessage(-pid,WM_USER,sig,0)) {
+ /* We fake signals to pseudo-processes using Win32
+ * message queue. In Win9X the pids are negative already. */
+ if (PostThreadMessage(IsWin95() ? pid : -pid,WM_USER,sig,0)) {
/* It might be us ... */
PERL_ASYNC_CHECK();
return 0;
End of Patch.
