Help for this page
#define PERL_NO_GET_CONTEXT #include "EXTERN.h" ... CV* const reducecv = get_cvn_flags("List::Util::reduce", 18, GV_ADD +); cv_set_call_checker(reducecv, ck_reduce, &PL_sv_undef); }