4 hive_h * O_OBJECT_hive_h
9 if (sv_isobject ($arg) && SvTYPE (SvRV ($arg)) == SVt_PVMG)
10 $var = ($type) SvIV ((SV *) SvRV ($arg));
12 warn (\"${Package}::$func_name(): $var is not a blessed SV reference\");
18 sv_setref_pv ($arg, "Win::Hivex", (void *) $var);