… | |
… | |
95 | if (pid == -1) |
95 | if (pid == -1) |
96 | XSRETURN_UNDEF; |
96 | XSRETURN_UNDEF; |
97 | |
97 | |
98 | /* do it like perl, dadadoop dadadoop */ |
98 | /* do it like perl, dadadoop dadadoop */ |
99 | w32_child_handles [w32_num_children] = (HANDLE)pid; |
99 | w32_child_handles [w32_num_children] = (HANDLE)pid; |
100 | pid = GetProcessId ((HANDLE)pid); /* get the real pid */ |
100 | pid = GetProcessId ((HANDLE)pid); /* get the real pid, unfortunately, requires wxp or newer */ |
101 | w32_child_pids [w32_num_children] = pid; |
101 | w32_child_pids [w32_num_children] = pid; |
102 | ++w32_num_children; |
102 | ++w32_num_children; |
103 | #elif USE_SPAWN |
103 | #elif USE_SPAWN |
104 | { |
104 | { |
105 | pid_t xpid; |
105 | pid_t xpid; |