Move Pod::Plainer from lib to ext

[p5sagit/p5-mst-13.2.git] / ext / Hash-Util-FieldHash / FieldHash.xs

diff --git a/ext/Hash-Util-FieldHash/FieldHash.xs b/ext/Hash-Util-FieldHash/FieldHash.xs
index 919a689..ccd7c61 100644 (file)
--- a/ext/Hash-Util-FieldHash/FieldHash.xs
+++ b/ext/Hash-Util-FieldHash/FieldHash.xs
@@ -82,6 +82,7 @@ SV* HUF_obj_id(SV* obj) {
     id = HUF_OBJ_ID(item);
     mg = sv_magicext(item, id, PERL_MAGIC_ext, NULL, NULL, 0);
     mg->mg_private = HUF_IDCACHE;
+    SvREFCNT_dec(id); /* refcnt++ in sv_magicext() */
 
     /* Return the object ID */
     return id;