if(!current_perl) { parent_perl = PERL_GET_CONTEXT; current_perl = perl_clone(parent_perl, CLONEf_KEEP_PTR_TABLE); PERL_SET_CONTEXT(parent_perl); }