diff options
Diffstat (limited to 'win32/perlhost.h')
| -rw-r--r-- | win32/perlhost.h | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/win32/perlhost.h b/win32/perlhost.h index 651a367021..70a2f65639 100644 --- a/win32/perlhost.h +++ b/win32/perlhost.h @@ -1727,11 +1727,6 @@ win32_start_child(LPVOID arg) w32_pseudo_id = id; #else w32_pseudo_id = GetCurrentThreadId(); - if (IsWin95()) { - int pid = (int)w32_pseudo_id; - if (pid < 0) - w32_pseudo_id = -pid; - } #endif if (tmpgv = gv_fetchpv("$", TRUE, SVt_PV)) { SV *sv = GvSV(tmpgv); @@ -1880,11 +1875,6 @@ PerlProcFork(struct IPerlProc* piPerl) errno = EAGAIN; return -1; } - if (IsWin95()) { - int pid = (int)id; - if (pid < 0) - id = -pid; - } w32_pseudo_child_handles[w32_num_pseudo_children] = handle; w32_pseudo_child_pids[w32_num_pseudo_children] = id; ++w32_num_pseudo_children; |