Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-JSON for openSUSE:Factory
checked in at 2022-06-28 15:21:19
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-JSON (Old)
and /work/SRC/openSUSE:Factory/.perl-JSON.new.1548 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-JSON"
Tue Jun 28 15:21:19 2022 rev:30 rq:985278 version:4.07
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-JSON/perl-JSON.changes 2022-06-03
14:16:34.565309448 +0200
+++ /work/SRC/openSUSE:Factory/.perl-JSON.new.1548/perl-JSON.changes
2022-06-28 15:21:25.801857995 +0200
@@ -1,0 +2,9 @@
+Sat Jun 25 03:06:33 UTC 2022 - Tina M??ller <timueller+p...@suse.de>
+
+- updated to 4.07
+ see /usr/share/doc/packages/perl-JSON/Changes
+
+ 4.07 2022-06-24
+ - updated backportPP with JSON::PP 4.10
+
+-------------------------------------------------------------------
Old:
----
JSON-4.06.tar.gz
New:
----
JSON-4.07.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-JSON.spec ++++++
--- /var/tmp/diff_new_pack.TPLgEI/_old 2022-06-28 15:21:26.593859176 +0200
+++ /var/tmp/diff_new_pack.TPLgEI/_new 2022-06-28 15:21:26.597859183 +0200
@@ -18,7 +18,7 @@
%define cpan_name JSON
Name: perl-JSON
-Version: 4.06
+Version: 4.07
Release: 0
License: Artistic-1.0 OR GPL-1.0-or-later
Summary: JSON (JavaScript Object Notation) encoder/decoder
++++++ JSON-4.06.tar.gz -> JSON-4.07.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-4.06/Changes new/JSON-4.07/Changes
--- old/JSON-4.06/Changes 2022-05-22 03:10:47.000000000 +0200
+++ new/JSON-4.07/Changes 2022-06-24 08:53:48.000000000 +0200
@@ -1,5 +1,8 @@
Revision history for Perl extension JSON.
+4.07 2022-06-24
+ - updated backportPP with JSON::PP 4.10
+
4.06 2022-05-22
- updated backportPP with JSON::PP 4.09
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-4.06/MANIFEST new/JSON-4.07/MANIFEST
--- old/JSON-4.06/MANIFEST 2022-05-22 03:12:27.000000000 +0200
+++ new/JSON-4.07/MANIFEST 2022-06-24 08:55:12.000000000 +0200
@@ -12,7 +12,6 @@
t/00_backend_version.t
t/00_load.t
t/00_load_backport_pp.t
-t/00_pod.t
t/01_utf8.t
t/02_error.t
t/03_types.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-4.06/META.json new/JSON-4.07/META.json
--- old/JSON-4.06/META.json 2022-05-22 03:12:27.000000000 +0200
+++ new/JSON-4.07/META.json 2022-06-24 08:55:12.000000000 +0200
@@ -48,6 +48,6 @@
"url" : "https://github.com/makamaka/JSON";
}
},
- "version" : "4.06",
- "x_serialization_backend" : "JSON version 4.06"
+ "version" : "4.07",
+ "x_serialization_backend" : "JSON version 4.07"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-4.06/META.yml new/JSON-4.07/META.yml
--- old/JSON-4.06/META.yml 2022-05-22 03:12:27.000000000 +0200
+++ new/JSON-4.07/META.yml 2022-06-24 08:55:12.000000000 +0200
@@ -24,5 +24,5 @@
resources:
bugtracker: https://github.com/makamaka/JSON/issues
repository: https://github.com/makamaka/JSON
-version: '4.06'
+version: '4.07'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-4.06/lib/JSON/backportPP/Boolean.pm
new/JSON-4.07/lib/JSON/backportPP/Boolean.pm
--- old/JSON-4.06/lib/JSON/backportPP/Boolean.pm 2022-05-22
03:09:08.000000000 +0200
+++ new/JSON-4.07/lib/JSON/backportPP/Boolean.pm 2022-06-24
08:24:06.000000000 +0200
@@ -11,7 +11,7 @@
fallback => 1,
);
-$JSON::backportPP::Boolean::VERSION = '4.09';
+$JSON::backportPP::Boolean::VERSION = '4.10';
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-4.06/lib/JSON/backportPP.pm
new/JSON-4.07/lib/JSON/backportPP.pm
--- old/JSON-4.06/lib/JSON/backportPP.pm 2022-05-22 03:09:08.000000000
+0200
+++ new/JSON-4.07/lib/JSON/backportPP.pm 2022-06-24 08:24:06.000000000
+0200
@@ -15,7 +15,7 @@
use Carp ();
#use Devel::Peek;
-$JSON::backportPP::VERSION = '4.09';
+$JSON::backportPP::VERSION = '4.10';
@JSON::PP::EXPORT = qw(encode_json decode_json from_json to_json);
@@ -1310,7 +1310,7 @@
}
for my $c ( unpack( $type, $str ) ) { # emulate pv_uni_display() ?
- my $chr_c = $c;
+ my $chr_c = chr($c);
$mess .= $chr_c eq '\\' ? '\\\\'
: $chr_c =~ /[[:print:]]/ ? $chr_c
: $chr_c eq '\a' ? '\a'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-4.06/lib/JSON.pm new/JSON-4.07/lib/JSON.pm
--- old/JSON-4.06/lib/JSON.pm 2022-05-22 03:09:30.000000000 +0200
+++ new/JSON-4.07/lib/JSON.pm 2022-06-24 08:53:53.000000000 +0200
@@ -9,7 +9,7 @@
@JSON::EXPORT = qw(from_json to_json jsonToObj objToJson encode_json
decode_json);
BEGIN {
- $JSON::VERSION = '4.06';
+ $JSON::VERSION = '4.07';
$JSON::DEBUG = 0 unless (defined $JSON::DEBUG);
$JSON::DEBUG = $ENV{ PERL_JSON_DEBUG } if exists $ENV{ PERL_JSON_DEBUG };
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-4.06/t/00_pod.t new/JSON-4.07/t/00_pod.t
--- old/JSON-4.06/t/00_pod.t 2021-01-17 19:27:58.000000000 +0100
+++ new/JSON-4.07/t/00_pod.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,8 +0,0 @@
-use strict;
-$^W = 1;
-
-use Test::More;
-
-eval "use Test::Pod 1.00";
-plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
-all_pod_files_ok ();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-4.06/t/04_dwiw_encode.t
new/JSON-4.07/t/04_dwiw_encode.t
--- old/JSON-4.06/t/04_dwiw_encode.t 2022-05-22 02:34:03.000000000 +0200
+++ new/JSON-4.07/t/04_dwiw_encode.t 2022-06-24 08:24:06.000000000 +0200
@@ -7,12 +7,10 @@
use strict;
use warnings;
-use Test;
+use Test::More tests => 5;
# main
{
- BEGIN { plan tests => 5 }
-
BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
use JSON;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-4.06/t/05_dwiw_decode.t
new/JSON-4.07/t/05_dwiw_decode.t
--- old/JSON-4.06/t/05_dwiw_decode.t 2022-05-22 02:34:03.000000000 +0200
+++ new/JSON-4.07/t/05_dwiw_decode.t 2022-06-24 08:24:06.000000000 +0200
@@ -7,12 +7,10 @@
use strict;
use warnings;
-use Test;
+use Test::More tests => 7;
# main
{
- BEGIN { plan tests => 7 }
-
BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
use JSON;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-4.06/t/108_decode.t new/JSON-4.07/t/108_decode.t
--- old/JSON-4.06/t/108_decode.t 2022-05-22 02:34:03.000000000 +0200
+++ new/JSON-4.07/t/108_decode.t 2022-06-24 08:24:06.000000000 +0200
@@ -5,7 +5,7 @@
use warnings;
use Test::More;
-BEGIN { plan tests => 6 };
+BEGIN { plan tests => 7 };
BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
@@ -41,3 +41,6 @@
is($utf8, ($isASCII) ? "\xf0\x92\x90\x80" : "\xDE\x4A\x41\x41");
+eval { $json->decode(q|{"action":"foo" "method":"bar","tid":1}|) };
+my $error = $@;
+like $error => qr!""method":"bar","tid"..."!;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-4.06/t/120_incr_parse_truncated.t
new/JSON-4.07/t/120_incr_parse_truncated.t
--- old/JSON-4.06/t/120_incr_parse_truncated.t 2022-05-22 03:09:08.000000000
+0200
+++ new/JSON-4.07/t/120_incr_parse_truncated.t 2022-06-24 08:24:06.000000000
+0200
@@ -15,7 +15,7 @@
run_test('{"one": 1}', sub {
my $input = shift;
- my $coder = JSON->new;
+ my $coder = JSON->new->allow_nonref(1);
my $res = eval { $coder->incr_parse($input) };
my $e = $@; # test more clobbers $@, we need it twice
ok ($res, "curly braces okay -- '$input'");
@@ -25,7 +25,7 @@
run_test('{"one": 1]', sub {
my $input = shift;
- my $coder = JSON->new;
+ my $coder = JSON->new->allow_nonref(1);
my $res = eval { $coder->incr_parse($input) };
my $e = $@; # test more clobbers $@, we need it twice
ok (!$res, "unbalanced curly braces -- '$input'");
@@ -35,7 +35,7 @@
run_test('"', sub {
my $input = shift;
- my $coder = JSON->new;
+ my $coder = JSON->new->allow_nonref(1);
my $res = eval { $coder->incr_parse($input) };
my $e = $@; # test more clobbers $@, we need it twice
ok (!$res, "truncated input='$input'");
@@ -45,7 +45,7 @@
run_test('{', sub {
my $input = shift;
- my $coder = JSON->new;
+ my $coder = JSON->new->allow_nonref(1);
my $res = eval { $coder->incr_parse($input) };
my $e = $@; # test more clobbers $@, we need it twice
ok (!$res, "truncated input='$input'");
@@ -55,7 +55,7 @@
run_test('[', sub {
my $input = shift;
- my $coder = JSON->new;
+ my $coder = JSON->new->allow_nonref(1);
my $res = eval { $coder->incr_parse($input) };
my $e = $@; # test more clobbers $@, we need it twice
ok (!$res, "truncated input='$input'");
@@ -65,7 +65,7 @@
run_test('}', sub {
my $input = shift;
- my $coder = JSON->new;
+ my $coder = JSON->new->allow_nonref(1);
my $res = eval { $coder->incr_parse($input) };
my $e = $@; # test more clobbers $@, we need it twice
ok (!$res, "truncated input='$input'");
@@ -75,7 +75,7 @@
run_test(']', sub {
my $input = shift;
- my $coder = JSON->new;
+ my $coder = JSON->new->allow_nonref(1);
my $res = eval { $coder->incr_parse($input) };
my $e = $@; # test more clobbers $@, we need it twice
ok (!$res, "truncated input='$input'");
@@ -105,7 +105,7 @@
run_test('"1', sub {
my $input = shift;
- my $coder = JSON->new;
+ my $coder = JSON->new->allow_nonref(1);
my $res = eval { $coder->incr_parse($input) };
my $e = $@; # test more clobbers $@, we need it twice
ok (!$res, "truncated input='$input'");
@@ -115,7 +115,7 @@
run_test('\\', sub {
my $input = shift;
- my $coder = JSON->new;
+ my $coder = JSON->new->allow_nonref(1);
my $res = eval { $coder->incr_parse($input) };
my $e = $@; # test more clobbers $@, we need it twice
ok (!$res, "truncated input='$input'");
@@ -125,7 +125,7 @@
run_test('{"one": "', sub {
my $input = shift;
- my $coder = JSON->new;
+ my $coder = JSON->new->allow_nonref(1);
my $res = eval { $coder->incr_parse($input) };
my $e = $@; # test more clobbers $@, we need it twice
ok (!$res, "truncated input='$input'");
@@ -135,7 +135,7 @@
run_test('{"one": {', sub {
my $input = shift;
- my $coder = JSON->new;
+ my $coder = JSON->new->allow_nonref(1);
my $res = eval { $coder->incr_parse($input) };
my $e = $@; # test more clobbers $@, we need it twice
ok (!$res, "truncated input='$input'");
@@ -145,7 +145,7 @@
run_test('{"one": [', sub {
my $input = shift;
- my $coder = JSON->new;
+ my $coder = JSON->new->allow_nonref(1);
my $res = eval { $coder->incr_parse($input) };
my $e = $@; # test more clobbers $@, we need it twice
ok (!$res, "truncated input='$input'");
@@ -155,7 +155,7 @@
run_test('{"one": t', sub {
my $input = shift;
- my $coder = JSON->new;
+ my $coder = JSON->new->allow_nonref(1);
my $res = eval { $coder->incr_parse($input) };
my $e = $@; # test more clobbers $@, we need it twice
ok (!$res, "truncated input='$input'");
@@ -165,7 +165,7 @@
run_test('{"one": \\', sub {
my $input = shift;
- my $coder = JSON->new;
+ my $coder = JSON->new->allow_nonref(1);
my $res = eval { $coder->incr_parse($input) };
my $e = $@; # test more clobbers $@, we need it twice
ok (!$res, "truncated input='$input'");
@@ -175,7 +175,7 @@
run_test('{"one": ', sub {
my $input = shift;
- my $coder = JSON->new;
+ my $coder = JSON->new->allow_nonref(1);
my $res = eval { $coder->incr_parse($input) };
my $e = $@; # test more clobbers $@, we need it twice
ok (!$res, "truncated input='$input'");
@@ -185,7 +185,7 @@
run_test('{"one": 1', sub {
my $input = shift;
- my $coder = JSON->new;
+ my $coder = JSON->new->allow_nonref(1);
my $res = eval { $coder->incr_parse($input) };
my $e = $@; # test more clobbers $@, we need it twice
ok (!$res, "truncated input='$input'");
@@ -195,7 +195,7 @@
run_test('{"one": {"two": 2', sub {
my $input = shift;
- my $coder = JSON->new;
+ my $coder = JSON->new->allow_nonref(1);
my $res = eval { $coder->incr_parse($input) };
my $e = $@; # test more clobbers $@, we need it twice
ok (!$res, "truncated '$input'");
@@ -206,7 +206,7 @@
# Test Appending Closing '}' Curly Bracket
run_test('{"one": 1', sub {
my $input = shift;
- my $coder = JSON->new;
+ my $coder = JSON->new->allow_nonref(1);
my $res = eval { $coder->incr_parse($input) };
my $e = $@; # test more clobbers $@, we need it twice
ok (!$res, "truncated input='$input'");
