convert to PERL_NO_GET_CONTEXT