r54464 - in /branches/upstream/libjson-xs-perl/current: Changes META.json META.yml XS.pm XS.xs

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Wed Mar 17 21:03:22 2010
New Revision: 54464

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54464
Log:
[svn-upgrade] Integrating new upstream version, libjson-xs-perl (2.290)

Modified:
    branches/upstream/libjson-xs-perl/current/Changes
    branches/upstream/libjson-xs-perl/current/META.json
    branches/upstream/libjson-xs-perl/current/META.yml
    branches/upstream/libjson-xs-perl/current/XS.pm
    branches/upstream/libjson-xs-perl/current/XS.xs

Modified: branches/upstream/libjson-xs-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libjson-xs-perl/current/Changes?rev=54464&op=diff
==============================================================================
--- branches/upstream/libjson-xs-perl/current/Changes (original)
+++ branches/upstream/libjson-xs-perl/current/Changes Wed Mar 17 21:03:22 2010
@@ -1,4 +1,9 @@
 Revision history for Perl extension JSON::XS
+
+2.29  Wed Mar 17 02:39:12 CET 2010
+	- fix a memory leak when callbacks set using filter_json_object
+          or filter_json_single_key_object were called (great testcase
+          by Eric Wilhelm).
 
 2.28  Thu Mar 11 20:30:46 CET 2010
 	- implement our own atof function - perl's can be orders of

Modified: branches/upstream/libjson-xs-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libjson-xs-perl/current/META.json?rev=54464&op=diff
==============================================================================
--- branches/upstream/libjson-xs-perl/current/META.json (original)
+++ branches/upstream/libjson-xs-perl/current/META.json Wed Mar 17 21:03:22 2010
@@ -1,1 +1,1 @@
-{"no_index":{"directory":["t","inc"]},"meta-spec":{"version":1.4,"url":"http://module-build.sourceforge.net/META-spec-v1.4.html"},"generated_by":"ExtUtils::MakeMaker version 6.54","distribution_type":"module","version":"2.28","name":"JSON-XS","author":[],"license":"unknown","build_requires":{"ExtUtils::MakeMaker":0},"requires":{"common::sense":0},"abstract":null,"configure_requires":{"ExtUtils::MakeMaker":0}}
+{"no_index":{"directory":["t","inc"]},"meta-spec":{"version":1.4,"url":"http://module-build.sourceforge.net/META-spec-v1.4.html"},"generated_by":"ExtUtils::MakeMaker version 6.54","distribution_type":"module","version":"2.29","name":"JSON-XS","author":[],"license":"unknown","build_requires":{"ExtUtils::MakeMaker":0},"requires":{"common::sense":0},"abstract":null,"configure_requires":{"ExtUtils::MakeMaker":0}}

Modified: branches/upstream/libjson-xs-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libjson-xs-perl/current/META.yml?rev=54464&op=diff
==============================================================================
--- branches/upstream/libjson-xs-perl/current/META.yml (original)
+++ branches/upstream/libjson-xs-perl/current/META.yml Wed Mar 17 21:03:22 2010
@@ -11,7 +11,7 @@
    },
    "generated_by" : "ExtUtils::MakeMaker version 6.54",
    "distribution_type" : "module",
-   "version" : "2.28",
+   "version" : "2.29",
    "name" : "JSON-XS",
    "author" : [],
    "license" : "unknown",

Modified: branches/upstream/libjson-xs-perl/current/XS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libjson-xs-perl/current/XS.pm?rev=54464&op=diff
==============================================================================
--- branches/upstream/libjson-xs-perl/current/XS.pm (original)
+++ branches/upstream/libjson-xs-perl/current/XS.pm Wed Mar 17 21:03:22 2010
@@ -103,7 +103,7 @@
 
 use common::sense;
 
-our $VERSION = '2.28';
+our $VERSION = '2.29';
 our @ISA = qw(Exporter);
 
 our @EXPORT = qw(encode_json decode_json to_json from_json);

Modified: branches/upstream/libjson-xs-perl/current/XS.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libjson-xs-perl/current/XS.xs?rev=54464&op=diff
==============================================================================
--- branches/upstream/libjson-xs-perl/current/XS.xs (original)
+++ branches/upstream/libjson-xs-perl/current/XS.xs Wed Mar 17 21:03:22 2010
@@ -1403,6 +1403,7 @@
 
               ENTER; SAVETMPS; PUSHMARK (SP);
               XPUSHs (HeVAL (he));
+              sv_2mortal (sv);
 
               PUTBACK; count = call_sv (HeVAL (cb), G_ARRAY); SPAGAIN;
 
@@ -1413,6 +1414,7 @@
                   return sv;
                 }
 
+              SvREFCNT_inc (sv);
               FREETMPS; LEAVE;
             }
         }