Don't rebless to the same type.

jnthn · jnthn · commit 65e3eac05f84 · 2013-04-29T22:27:14.000+02:00
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java b/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java
@@ -1343,7 +1343,8 @@ public static SixModelObject setwho(SixModelObject o, SixModelObject who) {
         return o;
     }
     public static SixModelObject rebless(SixModelObject obj, SixModelObject newType, ThreadContext tc) {
-        obj.st.REPR.change_type(tc, obj, newType);
+        if (obj.st != newType.st)
+            obj.st.REPR.change_type(tc, obj, newType);
         return obj;
     }
     public static SixModelObject create(SixModelObject obj, ThreadContext tc) {

Original file line number	Diff line number	Diff line change
`@@ -1343,7 +1343,8 @@ public static SixModelObject setwho(SixModelObject o, SixModelObject who) {`
`1343`	`1343`	`return o;`
`1344`	`1344`	`}`
`1345`	`1345`	`public static SixModelObject rebless(SixModelObject obj, SixModelObject newType, ThreadContext tc) {`
`1346`		`- obj.st.REPR.change_type(tc, obj, newType);`
	`1346`	`+ if (obj.st != newType.st)`
	`1347`	`+ obj.st.REPR.change_type(tc, obj, newType);`
`1347`	`1348`	`return obj;`
`1348`	`1349`	`}`
`1349`	`1350`	`public static SixModelObject create(SixModelObject obj, ThreadContext tc) {`