Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
10 lines (7 sloc) 214 Bytes
PerlInterpreter * T_PTROBJ_MG
OUTPUT
T_PTROBJ_MG
SV *sv = newSV(0);
$arg = newRV_noinc(sv);
sv_bless($arg, gv_stashpvs("Eval::Clean::Perl", 0));
xs_object_magic_attach_struct(aTHX_ sv, $var);