diff options
| author | Nikola Knezevic <indy@tesla.rcub.bg.ac.yu> | 2002-02-24 11:31:25 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-25 14:44:07 +0000 |
| commit | fb6be3502484a63390e9ec69dde969648a503399 (patch) | |
| tree | bce80ffb0fece0f9d5cfed352084dacdb025340b | |
| parent | a7bac0307a23adcde68a7bec5cbf98aae7782430 (diff) | |
| download | perl-fb6be3502484a63390e9ec69dde969648a503399.tar.gz | |
Re: [PATCH bleadperl] socketpair.t
Message-ID: <179381153.20020224103125@tesla.rcub.bg.ac.yu>
(the pid half only)
p4raw-id: //depot/perl@14867
| -rw-r--r-- | win32/win32.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/win32/win32.c b/win32/win32.c index e0cdfc0532..517a5765fe 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; |