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 /sv.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 'sv.c')
| -rw-r--r-- | sv.c | 11 |
1 files changed, 9 insertions, 2 deletions
@@ -8957,7 +8957,7 @@ Perl_sv_dup(pTHX_ SV *sstr, clone_params* param) } HvPMROOT((HV*)dstr) = HvPMROOT((HV*)sstr); /* XXX */ HvNAME((HV*)dstr) = SAVEPV(HvNAME((HV*)sstr)); - /* Record stashes for possible cloning in Perl_clone_using(). */ + /* Record stashes for possible cloning in Perl_clone(). */ if(HvNAME((HV*)dstr)) av_push(param->stashes, dstr); break; @@ -9451,7 +9451,14 @@ perl_clone(PerlInterpreter *proto_perl, UV flags) #endif #ifdef PERL_IMPLICIT_SYS - return perl_clone_using(proto_perl, flags, + + /* perlhost.h so we need to call into it + to clone the host, CPerlHost should have a c interface, sky */ + + if (flags & CLONEf_CLONE_HOST) { + return perl_clone_host(proto_perl,flags); + } + return perl_clone_using(proto_perl, flags, proto_perl->IMem, proto_perl->IMemShared, proto_perl->IMemParse, |