File: typemap

package info (click to toggle)
libdevel-callchecker-perl 0.009-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 200 kB
  • sloc: perl: 72; sh: 4; makefile: 2
file content (12 lines) | stat: -rw-r--r-- 332 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
 
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\")