Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-JSON-Parse for openSUSE:Factory
checked in at 2021-02-15 23:14:44
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-JSON-Parse (Old)
and /work/SRC/openSUSE:Factory/.perl-JSON-Parse.new.28504 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-JSON-Parse"
Mon Feb 15 23:14:44 2021 rev:4 rq:871187 version:0.61
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-JSON-Parse/perl-JSON-Parse.changes
2021-01-27 18:59:20.380535957 +0100
+++
/work/SRC/openSUSE:Factory/.perl-JSON-Parse.new.28504/perl-JSON-Parse.changes
2021-02-15 23:16:54.815450766 +0100
@@ -1,0 +2,10 @@
+Thu Feb 11 03:08:01 UTC 2021 - Tina M??ller <[email protected]>
+
+- updated to 0.61
+ see /usr/share/doc/packages/perl-JSON-Parse/Changes
+
+ 0.61 2021-02-11
+
+ * Add upgrade_utf8 method
+
+-------------------------------------------------------------------
Old:
----
JSON-Parse-0.60.tar.gz
New:
----
JSON-Parse-0.61.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-JSON-Parse.spec ++++++
--- /var/tmp/diff_new_pack.0DRpLo/_old 2021-02-15 23:16:55.315451513 +0100
+++ /var/tmp/diff_new_pack.0DRpLo/_new 2021-02-15 23:16:55.319451520 +0100
@@ -18,7 +18,7 @@
%define cpan_name JSON-Parse
Name: perl-JSON-Parse
-Version: 0.60
+Version: 0.61
Release: 0
Summary: Parse JSON
License: Artistic-1.0 OR GPL-1.0-or-later
++++++ JSON-Parse-0.60.tar.gz -> JSON-Parse-0.61.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-Parse-0.60/Changes new/JSON-Parse-0.61/Changes
--- old/JSON-Parse-0.60/Changes 2021-01-26 00:51:35.000000000 +0100
+++ new/JSON-Parse-0.61/Changes 2021-02-11 01:13:58.000000000 +0100
@@ -1,3 +1,7 @@
+0.61 2021-02-11
+
+* Add upgrade_utf8 method
+
0.60 2021-01-26
* Add "read" method to read a file from an object
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-Parse-0.60/MANIFEST new/JSON-Parse-0.61/MANIFEST
--- old/JSON-Parse-0.60/MANIFEST 2021-01-26 00:59:10.000000000 +0100
+++ new/JSON-Parse-0.61/MANIFEST 2021-02-11 01:14:41.000000000 +0100
@@ -58,6 +58,7 @@
t/test-empty-string.t
t/test.json
t/unicode.t
+t/upgrade-utf8.t
t/utf8.t
t/valid-json.t
t/whitespace.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-Parse-0.60/META.json
new/JSON-Parse-0.61/META.json
--- old/JSON-Parse-0.60/META.json 2021-01-26 00:59:10.000000000 +0100
+++ new/JSON-Parse-0.61/META.json 2021-02-11 01:14:41.000000000 +0100
@@ -53,6 +53,6 @@
"web" : "https://github.com/benkasminbullock/JSON-Parse";
}
},
- "version" : "0.60",
+ "version" : "0.61",
"x_serialization_backend" : "JSON::PP version 4.04"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-Parse-0.60/META.yml new/JSON-Parse-0.61/META.yml
--- old/JSON-Parse-0.60/META.yml 2021-01-26 00:59:10.000000000 +0100
+++ new/JSON-Parse-0.61/META.yml 2021-02-11 01:14:41.000000000 +0100
@@ -27,5 +27,5 @@
resources:
bugtracker: https://github.com/benkasminbullock/JSON-Parse/issues
repository: git://github.com/benkasminbullock/JSON-Parse.git
-version: '0.60'
+version: '0.61'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-Parse-0.60/Parse.xs new/JSON-Parse-0.61/Parse.xs
--- old/JSON-Parse-0.60/Parse.xs 2021-01-25 04:45:55.000000000 +0100
+++ new/JSON-Parse-0.61/Parse.xs 2021-02-10 01:39:05.000000000 +0100
@@ -137,24 +137,31 @@
json_parse_delete_false (parser);
void
+copy_literals (parser, onoff)
+ JSON::Parse parser;
+ SV * onoff;
+CODE:
+ json_parse_copy_literals (parser, onoff);
+
+void
delete_null (parser)
JSON::Parse parser;
CODE:
json_parse_delete_null (parser);
void
-copy_literals (parser, onoff)
+no_warn_literals (parser, onoff)
JSON::Parse parser;
SV * onoff;
CODE:
- json_parse_copy_literals (parser, onoff);
+ parser->no_warn_literals = SvTRUE (onoff) ? 1 : 0;
void
-no_warn_literals (parser, onoff)
+detect_collisions (parser, onoff)
JSON::Parse parser;
SV * onoff;
CODE:
- parser->no_warn_literals = SvTRUE (onoff) ? 1 : 0;
+ parser->detect_collisions = SvTRUE (onoff) ? 1 : 0;
void
diagnostics_hash (parser, onoff)
@@ -190,13 +197,6 @@
void
-detect_collisions (parser, onoff)
- JSON::Parse parser;
- SV * onoff;
-CODE:
- parser->detect_collisions = SvTRUE (onoff) ? 1 : 0;
-
-void
set_max_depth (json, max_depth)
JSON::Parse json;
int max_depth;
@@ -227,6 +227,13 @@
#endif /* def TESTRANDOM */
+void
+upgrade_utf8 (parser, onoff)
+ JSON::Parse parser;
+ SV * onoff;
+CODE:
+ parser->upgrade_utf8 = SvTRUE (onoff) ? 1 : 0;
+
MODULE=JSON::Parse PACKAGE=JSON::Tokenize
JSON::Tokenize tokenize_json (json)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-Parse-0.60/README new/JSON-Parse-0.61/README
--- old/JSON-Parse-0.60/README 2021-01-26 00:59:04.000000000 +0100
+++ new/JSON-Parse-0.61/README 2021-02-11 01:14:35.000000000 +0100
@@ -6,7 +6,7 @@
-This is the README for JSON::Parse version 0.60.
+This is the README for JSON::Parse version 0.61.
JSON::Parse is a "module" for the Perl computer programming language, a
library of computer code to install on a computer. This document contains
@@ -75,11 +75,11 @@
cpanm JSON::Parse
-To install the module from the source file, JSON-Parse-0.60.tar.gz, follow
+To install the module from the source file, JSON-Parse-0.61.tar.gz, follow
this sequence of commands:
- tar xfz JSON-Parse-0.60.tar.gz
- cd JSON-Parse-0.60
+ tar xfz JSON-Parse-0.61.tar.gz
+ cd JSON-Parse-0.61
perl Makefile.PL
make
make install
@@ -104,6 +104,6 @@
-----------------------------------------------------------------------------
-This README was written on Tue Jan 26 08:59:04 2021.
+This README was written on Thu Feb 11 09:14:35 2021.
-----------------------------------------------------------------------------
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-Parse-0.60/json-common.c
new/JSON-Parse-0.61/json-common.c
--- old/JSON-Parse-0.60/json-common.c 2021-01-25 03:18:32.000000000 +0100
+++ new/JSON-Parse-0.61/json-common.c 2021-02-10 01:37:27.000000000 +0100
@@ -277,6 +277,10 @@
unsigned int force_unicode : 1;
+ /* Upgrade the input from bytes to characters. */
+
+ unsigned int upgrade_utf8 : 1;
+
/* Top-level value? We need to know this for the case when we are
parsing a number and suddenly meet a '\0' byte. If it's a top
level value then we can assume that is just the end of the
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-Parse-0.60/json-perl.c
new/JSON-Parse-0.61/json-perl.c
--- old/JSON-Parse-0.60/json-perl.c 2020-12-29 13:58:09.000000000 +0100
+++ new/JSON-Parse-0.61/json-perl.c 2021-02-10 01:56:05.000000000 +0100
@@ -558,7 +558,7 @@
string_done:
#ifdef PERLING
- if (parser->unicode || parser->force_unicode) {
+ if (parser->unicode || parser->force_unicode || parser->upgrade_utf8) {
SvUTF8_on (string);
parser->force_unicode = 0;
}
@@ -869,7 +869,7 @@
start = parser->end - 1;
#ifdef PERLING
- if (parser->unicode) {
+ if (parser->unicode || parser->upgrade_utf8) {
/* Keys are unicode. */
uniflag = -1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-Parse-0.60/json-whitespace.c
new/JSON-Parse-0.61/json-whitespace.c
--- old/JSON-Parse-0.60/json-whitespace.c 2021-01-25 14:09:47.000000000
+0100
+++ new/JSON-Parse-0.61/json-whitespace.c 2021-01-29 01:15:12.000000000
+0100
@@ -176,3 +176,22 @@
SvCUR_set (stripped, m);
return stripped;
}
+
+static SV * indent (json_token_t * tokens, SV * json)
+{
+ int i;
+ json_ws_t j = {0};
+
+ j.olds = json;
+ j.p = SvPV (j.olds, j.olds_l);
+ j.t = tokens;
+ j.next = tokens;
+ for (i = 0; i < n_json_tokens; i++) {
+ j.before[i] = "";
+ j.after[i] = "";
+ }
+ j.after[json_token_comma] = "\n";
+ j.after[json_token_object] = "\n";
+ j.after[json_token_array] = "\n";
+ return &PL_sv_undef;
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-Parse-0.60/lib/JSON/Parse.pm
new/JSON-Parse-0.61/lib/JSON/Parse.pm
--- old/JSON-Parse-0.60/lib/JSON/Parse.pm 2021-01-26 00:51:11.000000000
+0100
+++ new/JSON-Parse-0.61/lib/JSON/Parse.pm 2021-02-11 01:13:58.000000000
+0100
@@ -18,7 +18,7 @@
all => \@EXPORT_OK,
);
use Carp;
-our $VERSION = '0.60';
+our $VERSION = '0.61';
require XSLoader;
XSLoader::load (__PACKAGE__, $VERSION);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-Parse-0.60/lib/JSON/Parse.pod
new/JSON-Parse-0.61/lib/JSON/Parse.pod
--- old/JSON-Parse-0.60/lib/JSON/Parse.pod 2021-01-26 00:59:05.000000000
+0100
+++ new/JSON-Parse-0.61/lib/JSON/Parse.pod 2021-02-11 01:14:35.000000000
+0100
@@ -23,8 +23,8 @@
=head1 VERSION
-This documents version 0.60 of JSON::Parse corresponding to
-L<git commit
27b70e98176290ddd145cadfe8aa6ff43bb71703|https://github.com/benkasminbullock/JSON-Parse/commit/27b70e98176290ddd145cadfe8aa6ff43bb71703>
released on Tue Jan 26 08:51:47 2021 +0900.
+This documents version 0.61 of JSON::Parse corresponding to
+L<git commit
033269fa8972fdce8626aa65cd11a5394ab50492|https://github.com/benkasminbullock/JSON-Parse/commit/033269fa8972fdce8626aa65cd11a5394ab50492>
released on Thu Feb 11 09:14:04 2021 +0900.
@@ -70,7 +70,7 @@
-(This example is included as
L<F<assert.pl>|https://fastapi.metacpan.org/source/BKB/JSON-Parse-0.60/examples/assert.pl>
in the distribution.)
+(This example is included as
L<F<assert.pl>|https://fastapi.metacpan.org/source/BKB/JSON-Parse-0.61/examples/assert.pl>
in the distribution.)
This is the underlying function for L</valid_json>. It runs at the
@@ -115,7 +115,7 @@
HASH
-(This example is included as
L<F<hash.pl>|https://fastapi.metacpan.org/source/BKB/JSON-Parse-0.60/examples/hash.pl>
in the distribution.)
+(This example is included as
L<F<hash.pl>|https://fastapi.metacpan.org/source/BKB/JSON-Parse-0.61/examples/hash.pl>
in the distribution.)
If the input JSON text is a serialized array, an array reference is
@@ -133,7 +133,7 @@
ARRAY
-(This example is included as
L<F<array.pl>|https://fastapi.metacpan.org/source/BKB/JSON-Parse-0.60/examples/array.pl>
in the distribution.)
+(This example is included as
L<F<array.pl>|https://fastapi.metacpan.org/source/BKB/JSON-Parse-0.61/examples/array.pl>
in the distribution.)
Otherwise a Perl scalar is returned.
@@ -307,7 +307,7 @@
-(This example is included as
L<F<collide.pl>|https://fastapi.metacpan.org/source/BKB/JSON-Parse-0.60/examples/collide.pl>
in the distribution.)
+(This example is included as
L<F<collide.pl>|https://fastapi.metacpan.org/source/BKB/JSON-Parse-0.61/examples/collide.pl>
in the distribution.)
The C<detect_collisions (1)> behaviour is the behaviour of
@@ -359,7 +359,7 @@
my $out = $jp->parse ($json);
This does the same thing as L</parse_json>, except its behaviour can
-be modified using the methods below.
+be modified using object methods.
???? This method was added in version 0.38.
@@ -383,6 +383,18 @@
???? This method was added in version 0.58.
+=head2 upgrade_utf8
+
+ $jp->upgrade_utf8 (1);
+
+Upgrade input from bytes to characters automatically.
+
+This can be switched off again using any false value:
+
+ $jp->upgrade_utf8 (0);
+
+???? This method was added in version 0.61.
+
=head2 warn_only
$jp->warn_only (1);
@@ -728,7 +740,7 @@
Native Perl: ??????
-(This example is included as
L<F<unicode-details.pl>|https://fastapi.metacpan.org/source/BKB/JSON-Parse-0.60/examples/unicode-details.pl>
in the distribution.)
+(This example is included as
L<F<unicode-details.pl>|https://fastapi.metacpan.org/source/BKB/JSON-Parse-0.61/examples/unicode-details.pl>
in the distribution.)
Although in general the above would be an unsafe practice, JSON::Parse
@@ -795,7 +807,7 @@
Ambiguous key 'a' is 2
-(This example is included as
L<F<key-collision.pl>|https://fastapi.metacpan.org/source/BKB/JSON-Parse-0.60/examples/key-collision.pl>
in the distribution.)
+(This example is included as
L<F<key-collision.pl>|https://fastapi.metacpan.org/source/BKB/JSON-Parse-0.61/examples/key-collision.pl>
in the distribution.)
Here the key "a" could be either 1 or 2. As seen in the example,
@@ -923,7 +935,7 @@
{"clapton":true,"hendrix":false}
-(This example is included as
L<F<json-tiny-round-trip-demo.pl>|https://fastapi.metacpan.org/source/BKB/JSON-Parse-0.60/examples/json-tiny-round-trip-demo.pl>
in the distribution.)
+(This example is included as
L<F<json-tiny-round-trip-demo.pl>|https://fastapi.metacpan.org/source/BKB/JSON-Parse-0.61/examples/json-tiny-round-trip-demo.pl>
in the distribution.)
Most of the other CPAN modules use similar methods to L<JSON::Tiny>,
@@ -1331,8 +1343,8 @@
There is some benchmarking code in the github repository under the
directory "benchmarks" for those wishing to test these claims. The
-script
L<F<benchmarks/bench>|https://github.com/benkasminbullock/JSON-Parse/27b70e98176290ddd145cadfe8aa6ff43bb71703/benchmarks/bench>
is an adaptation of the similar
-script in the L<JSON::XS> distribution. The script
L<F<benchmarks/pub-bench.pl>|https://github.com/benkasminbullock/JSON-Parse/27b70e98176290ddd145cadfe8aa6ff43bb71703/benchmarks/pub-bench.pl>
runs the benchmarks and prints them
+script
L<F<benchmarks/bench>|https://github.com/benkasminbullock/JSON-Parse/033269fa8972fdce8626aa65cd11a5394ab50492/benchmarks/bench>
is an adaptation of the similar
+script in the L<JSON::XS> distribution. The script
L<F<benchmarks/pub-bench.pl>|https://github.com/benkasminbullock/JSON-Parse/033269fa8972fdce8626aa65cd11a5394ab50492/benchmarks/pub-bench.pl>
runs the benchmarks and prints them
out as POD.
The following benchmark tests used version 0.58_01 of JSON::Parse, version
4.03 of L</JSON::XS>, and version 4.25 of L</Cpanel::JSON::XS> on Perl
@@ -1430,7 +1442,8 @@
=item RFC 8259
-JSON is specified in L<RFC 8259 "The JavaScript Object Notation (JSON) Data
Interchange Format"|http://www.ietf.org/rfc/rfc8259.txt>.
+JSON is specified in L<RFC 8259 "The JavaScript Object Notation (JSON)
+Data Interchange Format"|http://www.ietf.org/rfc/rfc8259.txt>.
=item json.org
@@ -1481,7 +1494,8 @@
=item JSON::Whitespace
-L<JSON::Whitespace> is for stripping whitespace from JSON.
+L<JSON::Whitespace> is for manipulating the "insignificant whitespace"
+part of JSON.
=back
@@ -1968,6 +1982,16 @@
values/matches"
+=item L<JSON::GRDDL>
+
+
+
+
+=item L<JSON::Hyper>
+
+
+
+
=item L<JSON::MergePatch>
@@ -2008,6 +2032,13 @@
Extract parts of a JSON string.
+=item L<JSON::Schema::ToJSON>
+
+
+
+"Generate example JSON structures from JSON Schema definitions"
+
+
=item L<JSON::T>
@@ -2471,7 +2502,7 @@
distribution.
More extensive testing code is in the git repository. This is not
-supplied in the CPAN distribution. A script,
L<F<randomjson.pl>|https://github.com/benkasminbullock/JSON-Parse/27b70e98176290ddd145cadfe8aa6ff43bb71703/randomjson.pl>,
+supplied in the CPAN distribution. A script,
L<F<randomjson.pl>|https://github.com/benkasminbullock/JSON-Parse/033269fa8972fdce8626aa65cd11a5394ab50492/randomjson.pl>,
generates a set number of bytes of random JSON and checks that the
module's bytewise validation of input is correct. It does this by
taking a valid fragment, then adding each possible byte from 0 to 255
@@ -2481,17 +2512,17 @@
JSON input is formed. The module has undergone about a billion
repetitions of this test.
-This setup relies on a C file,
L<F<json-random-test.c>|https://github.com/benkasminbullock/JSON-Parse/27b70e98176290ddd145cadfe8aa6ff43bb71703/json-random-test.c>,
which
-isn't in the CPAN distribution, and it also requires
L<F<Json3.xs>|https://github.com/benkasminbullock/JSON-Parse/27b70e98176290ddd145cadfe8aa6ff43bb71703/Json3.xs>
to be edited to make the macro C<TESTRANDOM> true
+This setup relies on a C file,
L<F<json-random-test.c>|https://github.com/benkasminbullock/JSON-Parse/033269fa8972fdce8626aa65cd11a5394ab50492/json-random-test.c>,
which
+isn't in the CPAN distribution, and it also requires
L<F<Json3.xs>|https://github.com/benkasminbullock/JSON-Parse/033269fa8972fdce8626aa65cd11a5394ab50492/Json3.xs>
to be edited to make the macro C<TESTRANDOM> true
(uncomment line 7 of the file). The testing code uses C
setjmp/longjmp, so it's not guaranteed to work on all operating
systems and is commented out for CPAN releases.
-A pure C version called
L<F<random-test.c>|https://github.com/benkasminbullock/JSON-Parse/27b70e98176290ddd145cadfe8aa6ff43bb71703/random-test.c>
also exists. This applies
+A pure C version called
L<F<random-test.c>|https://github.com/benkasminbullock/JSON-Parse/033269fa8972fdce8626aa65cd11a5394ab50492/random-test.c>
also exists. This applies
exactly the same tests, and requires no Perl at all.
If you're interested in testing your own JSON parser, the outputs
-generated by
L<F<randomjson.pl>|https://github.com/benkasminbullock/JSON-Parse/27b70e98176290ddd145cadfe8aa6ff43bb71703/randomjson.pl>
are quite a good place to
+generated by
L<F<randomjson.pl>|https://github.com/benkasminbullock/JSON-Parse/033269fa8972fdce8626aa65cd11a5394ab50492/randomjson.pl>
are quite a good place to
start. The default is to produce UTF-8 output, which looks pretty
horrible since it tends to produce long strings of UTF-8
garbage. (This is because it chooses randomly from 256 bytes and the
@@ -2527,16 +2558,6 @@
very deeply nested inputs such as those of the JSON Parsing Test
Suite.
-=head2 Test results
-
-=over
-
-=item L<CPAN testers|http://matrix.cpantesters.org/?dist=JSON-Parse+0.60>
-
-=item L<Travis CI|https://travis-ci.com/github/benkasminbullock/JSON-Parse>
-
-=back
-
=head1 ACKNOWLEDGEMENTS
Toby Inkster (TOBYINK) suggested some of the new function names which
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-Parse-0.60/lib/JSON/Tokenize.pm
new/JSON-Parse-0.61/lib/JSON/Tokenize.pm
--- old/JSON-Parse-0.60/lib/JSON/Tokenize.pm 2021-01-26 00:51:11.000000000
+0100
+++ new/JSON-Parse-0.61/lib/JSON/Tokenize.pm 2021-02-11 01:13:58.000000000
+0100
@@ -15,7 +15,7 @@
/;
our %EXPORT_TAGS = ('all' => \@EXPORT_OK);
use Carp;
-our $VERSION = '0.60';
+our $VERSION = '0.61';
sub tokenize_text
{
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-Parse-0.60/lib/JSON/Tokenize.pod
new/JSON-Parse-0.61/lib/JSON/Tokenize.pod
--- old/JSON-Parse-0.60/lib/JSON/Tokenize.pod 2021-01-26 00:59:05.000000000
+0100
+++ new/JSON-Parse-0.61/lib/JSON/Tokenize.pod 2021-02-11 01:14:35.000000000
+0100
@@ -49,8 +49,8 @@
=head1 VERSION
-This documents version 0.60 of JSON::Tokenize corresponding to
-L<git commit
27b70e98176290ddd145cadfe8aa6ff43bb71703|https://github.com/benkasminbullock/JSON-Parse/commit/27b70e98176290ddd145cadfe8aa6ff43bb71703>
released on Tue Jan 26 08:51:47 2021 +0900.
+This documents version 0.61 of JSON::Tokenize corresponding to
+L<git commit
033269fa8972fdce8626aa65cd11a5394ab50492|https://github.com/benkasminbullock/JSON-Parse/commit/033269fa8972fdce8626aa65cd11a5394ab50492>
released on Thu Feb 11 09:14:04 2021 +0900.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-Parse-0.60/lib/JSON/Whitespace.pm
new/JSON-Parse-0.61/lib/JSON/Whitespace.pm
--- old/JSON-Parse-0.60/lib/JSON/Whitespace.pm 2021-01-26 00:51:11.000000000
+0100
+++ new/JSON-Parse-0.61/lib/JSON/Whitespace.pm 2021-02-11 01:13:58.000000000
+0100
@@ -11,7 +11,7 @@
use warnings;
use strict;
use Carp;
-our $VERSION = '0.60';
+our $VERSION = '0.61';
use JSON::Tokenize 'tokenize_json';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-Parse-0.60/lib/JSON/Whitespace.pod
new/JSON-Parse-0.61/lib/JSON/Whitespace.pod
--- old/JSON-Parse-0.60/lib/JSON/Whitespace.pod 2021-01-26 00:59:05.000000000
+0100
+++ new/JSON-Parse-0.61/lib/JSON/Whitespace.pod 2021-02-11 01:14:35.000000000
+0100
@@ -35,8 +35,8 @@
=head1 VERSION
-This documents version 0.60 of JSON::Whitespace corresponding to
-L<git commit
27b70e98176290ddd145cadfe8aa6ff43bb71703|https://github.com/benkasminbullock/JSON-Parse/commit/27b70e98176290ddd145cadfe8aa6ff43bb71703>
released on Tue Jan 26 08:51:47 2021 +0900.
+This documents version 0.61 of JSON::Whitespace corresponding to
+L<git commit
033269fa8972fdce8626aa65cd11a5394ab50492|https://github.com/benkasminbullock/JSON-Parse/commit/033269fa8972fdce8626aa65cd11a5394ab50492>
released on Thu Feb 11 09:14:04 2021 +0900.
@@ -47,10 +47,16 @@
strings). According to L<the JSON specification|JSON::Parse/SEE ALSO>
"insignificant whitespace" consists of space (C<%x20>), horizontal tab
(C<%x09>), line feed or new line (C<%x0A>) and carriage return
-(C<%x0D).
+(C<%x0D>).
=head1 FUNCTIONS
+=head2 json_indent
+
+ my $indented = json_indent ($json);
+
+Add indentation to C<$json>.
+
=head2 json_minify
my $minified = json_minify ($json);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-Parse-0.60/t/upgrade-utf8.t
new/JSON-Parse-0.61/t/upgrade-utf8.t
--- old/JSON-Parse-0.60/t/upgrade-utf8.t 1970-01-01 01:00:00.000000000
+0100
+++ new/JSON-Parse-0.61/t/upgrade-utf8.t 2021-02-10 01:54:25.000000000
+0100
@@ -0,0 +1,17 @@
+use FindBin '$Bin';
+use lib "$Bin";
+use JPT;
+
+my $jp = JSON::Parse->new ();
+$jp->upgrade_utf8 (1);
+no utf8;
+my $json = '{"???":"???"}';
+my $out = $jp->parse ($json);
+use utf8;
+use Data::Dumper;
+print Dumper ($out);
+my @keys = keys %$out;
+ok (utf8::is_utf8 ($keys[0]), "Upgraded UTF-8 to character encoding");
+cmp_ok (length ($out->{"???"}), '==', 1, "Got utf8");
+
+done_testing ();
