diff options
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/perlhost.h | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/win32/perlhost.h b/win32/perlhost.h index 0240044c11..abe7296e93 100644 --- a/win32/perlhost.h +++ b/win32/perlhost.h @@ -1722,18 +1722,11 @@ win32_start_child(LPVOID arg) PERL_SET_THX(my_perl); win32_checkTLS(my_perl); - /* set $$ to pseudo id */ #ifdef PERL_SYNC_FORK w32_pseudo_id = id; #else w32_pseudo_id = GetCurrentThreadId(); #endif - if (tmpgv = gv_fetchpv("$", TRUE, SVt_PV)) { - SV *sv = GvSV(tmpgv); - SvREADONLY_off(sv); - sv_setiv(sv, -(IV)w32_pseudo_id); - SvREADONLY_on(sv); - } #ifdef PERL_USES_PL_PIDSTATUS hv_clear(PL_pidstatus); #endif |