#define PERL_NO_GET_CONTEXT 1

#include "EXTERN.h"

#include "perl.h"

#include "threads1_callchecker0.h"

#include "XSUB.h"

MODULE = t::threads1 PACKAGE = t::threads1

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);