Blame typemap

Packit b3426c
TYPEMAP
Packit b3426c
CV *	T_CVREF
Packit b3426c
Packit b3426c
INPUT
Packit b3426c
# The Perl core already has a typemap entry for CV*, but empirically the
Packit b3426c
# one in 5.6 is broken.  This is essentially a copy of the one in 5.8,
Packit b3426c
# which also works for 5.6.
Packit b3426c
T_CVREF
Packit b3426c
	if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVCV)
Packit b3426c
		$var = (CV*)SvRV($arg);
Packit b3426c
	else
Packit b3426c
		croak(\"$var is not a code reference\")