From: Nikola Knezevic <indy@tesla.rcub.bg.ac.yu>
Date: Sun, 24 Feb 2002 10:31:25 +0000 (+0100)
Subject: Re: [PATCH bleadperl] socketpair.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fb6be3502484a63390e9ec69dde969648a503399;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;