Hello community,

here is the log from the commit of package perl-JSON-XS for openSUSE:Factory 
checked in at 2019-03-10 09:32:54
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-JSON-XS (Old)
 and      /work/SRC/openSUSE:Factory/.perl-JSON-XS.new.28833 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-JSON-XS"

Sun Mar 10 09:32:54 2019 rev:23 rq:682373 version:4.02

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-JSON-XS/perl-JSON-XS.changes        
2019-03-04 09:23:04.284571871 +0100
+++ /work/SRC/openSUSE:Factory/.perl-JSON-XS.new.28833/perl-JSON-XS.changes     
2019-03-10 09:33:03.316209942 +0100
@@ -1,0 +2,11 @@
+Thu Mar  7 06:15:20 UTC 2019 - Stephan Kulow <co...@suse.com>
+
+- updated to 4.02
+   see /usr/share/doc/packages/perl-JSON-XS/Changes
+
+  4.02 Wed Mar  6 08:31:24 CET 2019
+       - undo the fix from 4.01, it breaks more things than it fixes
+            (another tetscase by Wesley Schwengle).
+          - try a proper fix this time.
+
+-------------------------------------------------------------------

Old:
----
  JSON-XS-4.01.tar.gz

New:
----
  JSON-XS-4.02.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-JSON-XS.spec ++++++
--- /var/tmp/diff_new_pack.79SF2S/_old  2019-03-10 09:33:03.832209813 +0100
+++ /var/tmp/diff_new_pack.79SF2S/_new  2019-03-10 09:33:03.832209813 +0100
@@ -17,14 +17,15 @@
 
 
 Name:           perl-JSON-XS
-Version:        4.01
+Version:        4.02
 Release:        0
 %define cpan_name JSON-XS
 Summary:        JSON serialising/deserialising, done correctly and fast
 License:        Artistic-1.0 OR GPL-1.0-or-later
 Group:          Development/Libraries/Perl
 Url:            https://metacpan.org/release/%{cpan_name}
-Source0:        
https://cpan.metacpan.org/authors/id/M/ML/MLEHMANN/%{cpan_name}-%{version}.tar.gz
+#Source0:        
https://cpan.metacpan.org/authors/id/M/ML/MLEHMANN/%{cpan_name}-4.01.tar.gz
+Source0:        JSON-XS-4.02.tar.gz
 Source1:        cpanspec.yml
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 BuildRequires:  perl

++++++ JSON-XS-4.01.tar.gz -> JSON-XS-4.02.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/JSON-XS-4.01/Changes new/JSON-XS-4.02/Changes
--- old/JSON-XS-4.01/Changes    2019-02-24 05:03:35.000000000 +0100
+++ new/JSON-XS-4.02/Changes    2019-03-06 08:31:29.000000000 +0100
@@ -6,9 +6,14 @@
 TODO: investigate magic (Eric Brine)
 TODO: [PATCH] Types::Serialiser: Inline true(), false() and error() functions
 
+4.02 Wed Mar  6 08:31:24 CET 2019
+       - undo the fix from 4.01, it breaks more things than it fixes
+          (another tetscase by Wesley Schwengle).
+        - try a proper fix this time.
+
 4.01 Sun Feb 24 05:03:30 CET 2019
        - fix some stack corruption caused mostly when calling methods
-          in list context (tewstcase by Wesley Schwengle).
+          in list context (testcase by Wesley Schwengle).
 
 4.0  Fri Nov 16 00:06:54 CET 2018
        - SECURITY IMPLICATION: this release enables allow_nonref by default
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/JSON-XS-4.01/META.json new/JSON-XS-4.02/META.json
--- old/JSON-XS-4.01/META.json  2019-02-24 05:08:10.000000000 +0100
+++ new/JSON-XS-4.02/META.json  2019-03-06 08:31:55.000000000 +0100
@@ -39,6 +39,6 @@
       }
    },
    "release_status" : "stable",
-   "version" : "4.01",
+   "version" : "4.02",
    "x_serialization_backend" : "JSON::PP version 2.27300"
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/JSON-XS-4.01/META.yml new/JSON-XS-4.02/META.yml
--- old/JSON-XS-4.01/META.yml   2019-02-24 05:08:10.000000000 +0100
+++ new/JSON-XS-4.02/META.yml   2019-03-06 08:31:55.000000000 +0100
@@ -21,5 +21,5 @@
 requires:
   Types::Serialiser: '0'
   common::sense: '0'
-version: '4.01'
+version: '4.02'
 x_serialization_backend: 'CPAN::Meta::YAML version 0.012'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/JSON-XS-4.01/XS.pm new/JSON-XS-4.02/XS.pm
--- old/JSON-XS-4.01/XS.pm      2019-02-24 05:03:43.000000000 +0100
+++ new/JSON-XS-4.02/XS.pm      2019-03-06 08:31:38.000000000 +0100
@@ -89,7 +89,7 @@
 
 use common::sense;
 
-our $VERSION = '4.01';
+our $VERSION = '4.02';
 our @ISA = qw(Exporter);
 
 our @EXPORT = qw(encode_json decode_json);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/JSON-XS-4.01/XS.xs new/JSON-XS-4.02/XS.xs
--- old/JSON-XS-4.01/XS.xs      2019-02-24 05:01:16.000000000 +0100
+++ new/JSON-XS-4.02/XS.xs      2019-03-06 08:29:47.000000000 +0100
@@ -828,6 +828,8 @@
               SP -= count;
             }
 
+          PUTBACK;
+
           encode_ch (enc, ']');
 
           FREETMPS; LEAVE;
@@ -1535,13 +1537,17 @@
               if (count == 1)
                 {
                   sv = newSVsv (POPs);
+                  PUTBACK;
                   FREETMPS; LEAVE;
                   return sv;
                 }
               else if (count)
                 croak ("filter_json_single_key_object callbacks must not 
return more than one scalar");
 
+              PUTBACK;
+
               SvREFCNT_inc (sv);
+
               FREETMPS; LEAVE;
             }
         }
@@ -1564,6 +1570,8 @@
           else
             croak ("filter_json_object callbacks must not return more than one 
scalar");
 
+          PUTBACK;
+
           FREETMPS; LEAVE;
         }
     }
@@ -2208,18 +2216,20 @@
 
 void encode (JSON *self, SV *scalar)
        PPCODE:
-        PUTBACK; XPUSHs (encode_json (scalar, self));
+        PUTBACK; scalar = encode_json (scalar, self); SPAGAIN;
+        XPUSHs (scalar);
 
 void decode (JSON *self, SV *jsonstr)
        PPCODE:
-        PUTBACK; XPUSHs (decode_json (jsonstr, self, 0));
+        PUTBACK; jsonstr = decode_json (jsonstr, self, 0); SPAGAIN;
+        XPUSHs (jsonstr);
 
 void decode_prefix (JSON *self, SV *jsonstr)
        PPCODE:
 {
        SV *sv;
         STRLEN offset;
-        PUTBACK; sv = decode_json (jsonstr, self, &offset);
+        PUTBACK; sv = decode_json (jsonstr, self, &offset); SPAGAIN;
         EXTEND (SP, 2);
         PUSHs (sv);
         PUSHs (sv_2mortal (newSVuv (ptr_to_index (jsonstr, SvPV_nolen 
(jsonstr) + offset))));
@@ -2302,7 +2312,7 @@
                     }
                 }
 
-              PUTBACK; sv = decode_json (self->incr_text, self, &offset);
+              PUTBACK; sv = decode_json (self->incr_text, self, &offset); 
SPAGAIN;
               XPUSHs (sv);
 
               self->incr_pos -= offset;
@@ -2364,7 +2374,8 @@
         JSON json;
         json_init (&json);
         json.flags |= F_UTF8;
-        PUTBACK; XPUSHs (encode_json (scalar, &json));
+        PUTBACK; scalar = encode_json (scalar, &json); SPAGAIN;
+        XPUSHs (scalar);
 }
 
 void decode_json (SV *jsonstr)
@@ -2373,6 +2384,7 @@
         JSON json;
         json_init (&json);
         json.flags |= F_UTF8;
-        PUTBACK; XPUSHs (decode_json (jsonstr, &json, 0));
+        PUTBACK; jsonstr = decode_json (jsonstr, &json, 0); SPAGAIN;
+        XPUSHs (jsonstr);
 }
 


Reply via email to