blob: ca1600ef2e00b7afec33df12dd3e1370c69f544a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
TYPEMAP
VIWIN T_VIOBJNOMUNGE
VIBUF T_VIOBJNOMUNGE
INPUT
T_VIOBJNOMUNGE
if (sv_isa($arg, \"${ntype}\")) {
IV tmp = SvIV((SV*)SvRV($arg));
$var = INT2PTR($type, tmp);
if (!tmp)
croak(\"$ntype no longer exists\");
}
else
croak(\"$var is not of type ${ntype}\")
|
