#define PERL_NO_GET_CONTEXT     /* we want efficiency */