diff options
| author | Jan Dubois <jand@activestate.com> | 2010-12-02 12:10:44 -0800 |
|---|---|---|
| committer | Jan Dubois <jand@activestate.com> | 2010-12-02 13:48:40 -0800 |
| commit | 8cbe99e5b6fe99a6bc17c0b0cee249bac3565da4 (patch) | |
| tree | 0bbc43c0fb6a721c925974256af4656c05d0a4c4 /win32/perlhost.h | |
| parent | c519362833b3b1e79242d14c2041311bba13eacb (diff) | |
| download | perl-8cbe99e5b6fe99a6bc17c0b0cee249bac3565da4.tar.gz | |
Windows 95 Chainsaw Massacre
Remove all supporting code for Windows 9x and Windows NT. The
minimum supported version is Windows 2000 now.
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; |