--- Set-Object-1.28/Object.xs	2010-07-14 06:42:11.000000000 +0200
+++ /home/parmus/Projects/Set-Object-1.28/Object.xs	2011-08-04 02:01:56.357000046 +0200
@@ -358,23 +358,8 @@
 	 i--;
        }
        if (!c) {
-	 /* we should clear the magic, really. */
-	 MAGIC* last = 0;
-	 for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) {
-	   if (mg->mg_type == SET_OBJECT_MAGIC_backref) {
-	     if (last) {
-	       last->mg_moremagic = mg->mg_moremagic;
-	       Safefree(mg);
-	       break;
-	     } else if (mg->mg_moremagic) {
-	       SvMAGIC(sv) = mg->mg_moremagic;
-	     } else {
-	       SvMAGIC(sv) = 0;
-	       SvAMAGIC_off(sv);
-	     }
-	   }
-	   last=mg;
-	 }
+	 sv_unmagic(sv, SET_OBJECT_MAGIC_backref);
+	 SvREFCNT_dec(wand);
        }
     }
 }