Re: [PATCH bleadperl] socketpair.t

Message-ID: <179381153.20020224103125@tesla.rcub.bg.ac.yu>

(the pid half only)

p4raw-id: //depot/perl@14867

diff --git a/win32/win32.c b/win32/win32.c
index e0cdfc0..517a576 100644 (file)
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -1094,8 +1094,9 @@ win32_kill(int pid, int sig)
                }
                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;