diff options
| author | Artur Bergman <sky@nanisky.com> | 2001-06-26 17:32:53 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-26 12:36:07 +0000 |
| commit | c43294b8228352af5778f0b0d7935ff67661117e (patch) | |
| tree | bbafcccf7c7d97d39008ec9b9700faa304e0dee5 /win32/perllib.c | |
| parent | 3b86e92a87cef9dae91e9963b5f65e42f4be9fa9 (diff) | |
| download | perl-c43294b8228352af5778f0b0d7935ff67661117e.tar.gz | |
Adds perl_clone_host under IMPLICIT SYS
Message-ID: <B75E5BA5.1A7C%artur@contiller.se>
p4raw-id: //depot/perl@10954
Diffstat (limited to 'win32/perllib.c')
| -rw-r--r-- | win32/perllib.c | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/win32/perllib.c b/win32/perllib.c index 87b79c031d..36b19a3ad9 100644 --- a/win32/perllib.c +++ b/win32/perllib.c @@ -396,3 +396,26 @@ DllMain(HANDLE hModule, /* DLL module handle */ } return TRUE; } + +#ifdef USE_ITHREADS +EXTERN_C PerlInterpreter * +perl_clone_host(PerlInterpreter* proto_perl, UV flags) { + dTHXo; + CPerlHost *h; + h = new CPerlHost(*(CPerlHost*)PL_sys_intern.internal_host); + proto_perl = perl_clone_using(proto_perl, flags, + h->m_pHostperlMem, + h->m_pHostperlMemShared, + h->m_pHostperlMemParse, + h->m_pHostperlEnv, + h->m_pHostperlStdIO, + h->m_pHostperlLIO, + h->m_pHostperlDir, + h->m_pHostperlSock, + h->m_pHostperlProc + ); + proto_perl->Isys_intern.internal_host = h; + return proto_perl; + +} +#endif |