[catagits/fcgi2.git] / perl / typemap

TYPEMAP
FCGI	T_FCGIOBJNOMUNGE

INPUT
T_FCGIOBJNOMUNGE
    if (sv_isa($arg, \"FCGI\")) {
	$var = ($type) SvIV((SV*)SvRV($arg));
    } else
	croak(\"$var is not of type ${ntype}\")
Commit	Line	Data
1b64d24d	1	TYPEMAP
	2	FCGI T_FCGIOBJNOMUNGE
	3
	4	INPUT
	5	T_FCGIOBJNOMUNGE
	6	if (sv_isa($arg, \"FCGI\")) {
	7	$var = ($type) SvIV((SV*)SvRV($arg));
	8	} else
	9	croak(\"$var is not of type ${ntype}\")