Change 30326 by [EMAIL PROTECTED] on 2007/02/16 08:36:24
Back out the win32.c hunk of #29692 to fix a compiler error
Affected files ...
... //depot/maint-5.8/perl/win32/win32.c#35 edit
Differences ...
==== //depot/maint-5.8/perl/win32/win32.c#35 (text) ====
Index: perl/win32/win32.c
--- perl/win32/win32.c#34~30312~ 2007-02-15 04:28:42.000000000 -0800
+++ perl/win32/win32.c 2007-02-16 00:36:24.000000000 -0800
@@ -1062,6 +1062,7 @@
win32_kill(int pid, int sig)
{
dTHX;
+ HANDLE hProcess;
long child;
int retval;
#ifdef USE_ITHREADS
@@ -1069,7 +1070,7 @@
/* it is a pseudo-forked child */
child = find_pseudo_pid(-pid);
if (child >= 0) {
- HANDLE hProcess = w32_pseudo_child_handles[child];
+ hProcess = w32_pseudo_child_handles[child];
switch (sig) {
case 0:
/* "Does process exist?" use of kill */
End of Patch.
