diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-04 04:59:35 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-04 04:59:35 +0000 |
| commit | 3dbbd0f5d38d873da0cc4a01718eb88e4dc6ae89 (patch) | |
| tree | 68d449d830de25c927c350706149f260c9eaa484 /win32/win32.c | |
| parent | fd89de3aad1f46316826050b187615df670e00d3 (diff) | |
| download | perl-3dbbd0f5d38d873da0cc4a01718eb88e4dc6ae89.tar.gz | |
adjust change#6299
p4raw-link: @6299 on //depot/perl: 6c644e7885bc20d759d8cbcb4abaa8f14113c03b
p4raw-id: //depot/perl@6302
Diffstat (limited to 'win32/win32.c')
| -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 750f6fb9c6..1ba2e51758 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -4054,6 +4054,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 @@ -4068,18 +4080,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 */ |