#define PERL_NO_GET_CONTEXT sv_foo(a, b, c); #### Perl_sv_foo(my_perl, a, b, c); #### Perl_sv_foo(((PerlInterpreter *)pthread_getspecific(PL_thr_key)), a, b, c); #### Perl_sv_foo(a, b, c); #### PerlInterpreter * my_perl = (PerlInterpreter *)pthread_getspecific(PL_thr_key);