[ViewVC] Diff of: cvs/CBOR-XS/XS.xs

Comparing CBOR-XS/XS.xs (file contents):
Revision 1.11 by root, Sun Oct 27 22:35:15 2013 UTC vs.
Revision 1.14 by root, Tue Oct 29 15:56:32 2013 UTC

 #include <stdio.h>
 #include <limits.h>
 #include <float.h>
 #include "ecb.h"
+// compatibility with perl <5.18
+#ifndef HvNAMELEN_get
+# define HvNAMELEN_get(hv) strlen (HvNAME (hv))
+#endif
+#ifndef HvNAMELEN
+# define HvNAMELEN(hv) HvNAMELEN_get (hv)
+#endif
+#ifndef HvNAMEUTF8
+# define HvNAMEUTF8(hv) 0
+#endif
 // known tags
 enum cbor_tag
 {
    // inofficial extensions (pending iana registration)
           SV *k = decode_sv (dec);
           SV *v = decode_sv (dec);
           hv_store_ent (hv, k, v, 0);
+          SvREFCNT_dec (k);
         }
     }
   else
     {
       int len = decode_uint (dec);
         {
           SV *k = decode_sv (dec);
           SV *v = decode_sv (dec);
           hv_store_ent (hv, k, v, 0);
+          SvREFCNT_dec (k);
         }
     }
   DEC_DEC_DEPTH;
   return newRV_noinc ((SV *)hv);
       PUTBACK;
       call_sv ((SV *)GvCV (method), G_SCALAR);
       SPAGAIN;
+      SvREFCNT_dec (sv);
       sv = SvREFCNT_inc (POPs);
       PUTBACK;
       FREETMPS; LEAVE;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines