diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-07-04 16:24:24 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-07-04 16:24:24 +0000 |
| commit | 9bb8fa4d8ccca8c2de391a370dd92749d7f09354 (patch) | |
| tree | af87cfb1669a2df2d928d2db68567cf6a6a02098 /win32 | |
| parent | 80814d4c448093ff1bbffc8303aa2b382c1caa70 (diff) | |
| parent | f199104684ce3695f33e22530039c0b087f1a163 (diff) | |
| download | perl-9bb8fa4d8ccca8c2de391a370dd92749d7f09354.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@6305
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/win32.c | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/win32/win32.c b/win32/win32.c index b4ad80cf48..a05a3fe8a6 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -4055,6 +4055,18 @@ Perl_sys_intern_init(pTHX) w32_init_socktype = 0; } +void +Perl_sys_intern_clear(pTHX) +{ + Safefree(w32_perlshell_tokens); + Safefree(w32_perlshell_vec); + /* NOTE: w32_fdpid is freed by sv_clean_all() */ + Safefree(w32_children); +# ifdef USE_ITHREADS + Safefree(w32_pseudo_children); +# endif +} + # ifdef USE_ITHREADS void @@ -4069,18 +4081,6 @@ Perl_sys_intern_dup(pTHX_ struct interp_intern *src, struct interp_intern *dst) Newz(1313, dst->pseudo_children, 1, child_tab); dst->thr_intern.Winit_socktype = src->thr_intern.Winit_socktype; } - -void -Perl_sys_intern_clear(pTHX) -{ - Safefree(w32_perlshell_tokens); - Safefree(w32_perlshell_vec); - /* NOTE: w32_fdpid is freed by sv_clean_all() */ - Safefree(w32_children); -# ifdef USE_ITHREADS - Safefree(w32_pseudo_children); -# endif -} # endif /* USE_ITHREADS */ #endif /* HAVE_INTERP_INTERN */ |