Blob Blame History Raw
#define PERL_NO_GET_CONTEXT 1
#include "EXTERN.h"
#include "perl.h"
#include "threads2_callchecker0.h"
#include "XSUB.h"

MODULE = t::threads2 PACKAGE = t::threads2

PROTOTYPES: DISABLE

void
cv_set_call_checker_proto(CV *cv, SV *proto)
PROTOTYPE: $$
CODE:
	if (SvROK(proto))
		proto = SvRV(proto);
	cv_set_call_checker(cv, Perl_ck_entersub_args_proto, proto);