From: Yuval Kogman <nothingmuch@woobling.org>
Date: Tue, 19 Aug 2008 15:48:03 +0000 (+0000)
Subject: bless into Moose::XS::Meta::Instance
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=49a852cffcf64ea5f0e3b14180887b9a2a67812d;p=gitmo%2FMoose.git

bless into Moose::XS::Meta::Instance
---

diff --git a/Moose.xs b/Moose.xs
index 52c04d2..f1ff831 100644
--- a/Moose.xs
+++ b/Moose.xs
@@ -315,7 +315,7 @@ STATIC MI *new_mi (pTHX_ HV *stash, AV *attrs) {
 }
 
 STATIC SV *new_mi_obj (pTHX_ MI *mi) {
-    return newRV_noinc(newSViv(PTR2IV(mi)));
+    return sv_bless( newRV_noinc(newSViv(PTR2IV(mi))), gv_stashpvs("Moose::XS::Meta::Instance", 0) );
 }
 
 STATIC SV *attr_to_meta_instance(pTHX_ SV *meta_attr) {