TYPEMAP

CV *	T_CVREF

INPUT

# The Perl core already has a typemap entry for CV*, but empirically the

# one in 5.6 is broken.  This is essentially a copy of the one in 5.8,

# which also works for 5.6.

T_CVREF

	if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVCV)

		$var = (CV*)SvRV($arg);

	else

		croak(\"$var is not a code reference\")