4 guestfs_h * O_OBJECT_guestfs_h
8 if (sv_isobject ($arg) && SvTYPE (SvRV ($arg)) == SVt_PVMG)
9 $var = ($type) SvIV ((SV *) SvRV ($arg));
11 warn (\"${Package}::$func_name(): $var is not a blessed SV reference\");
17 sv_setref_pv ($arg, "Sys::Guestfs", (void *) $var);