10 croak(\"$var is not an object\");
12 if (!SvRMAGICAL(sv) || !(mg = mg_find(sv, '~'))
13 || mg->mg_private != ${ntype}_MAGIC_SIGNATURE)
14 croak(\"XSUB ${func_name}: $var is a forged ${ntype} object\");
15 $var = ($type) SvPVX(mg->mg_obj);
16 DEBUG_S(PerlIO_printf(Perl_debug_log,
17 \"XSUB ${func_name}: %p\\n\", $var));
21 $var = ($type) SvIV((SV*)SvRV($arg));
23 croak(\"$var is not a reference\")