Uint32 add_timer_cb (Uint32 interval, void* param ) { Uint32 ret_interval; { if(!PERL_GET_CONTEXT) { PERL_SET_CONTEXT(current_perl); } [...] } return ret_interval; }