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 <timueller+p...@suse.de> + +- 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 ();