Disallow bless hackery around classes and instances

1 files changed, 3 insertions, 1 deletions

diff --git a/class.c b/class.c
index 6642a01d5d..213ebc1407 100644
--- a/class.c
+++ b/class.c
@@ -80,8 +80,10 @@ XS(injected_constructor)
     }
 
     SV *instance = newSVobject(aux->xhv_class_next_fieldix);
+    SvOBJECT_on(instance);
+    SvSTASH_set(instance, MUTABLE_HV(SvREFCNT_inc_simple(stash)));
+
     SV *self = sv_2mortal(newRV_noinc(instance));
-    sv_bless(self, stash);
 
     SV **fields = ObjectFIELDS(instance);