Subject: | Please release 3.04 as 4.01 and use X.Y_Z notation for trial releases |
MIME-Version: | 1.0 |
X-Mailer: | MIME-tools 5.504 (Entity 5.504) |
X-RT-Interface: | Web |
Message-ID: | <rt-4.0.18-27787-1550733146-237.0-0-0@rt.cpan.org> |
X-RT-Original-Encoding: | utf-8 |
Content-Type: | multipart/mixed; boundary="----------=_1550733146-27787-2" |
X-RT-Encrypt: | 0 |
X-RT-Sign: | 0 |
Content-Length: | 0 |
Content-Disposition: | inline |
Content-Type: | text/plain; charset="utf-8" |
Content-Transfer-Encoding: | binary |
Content-Length: | 314 |
Hi,
I came across the following bug in the 4.0 release of JSON::XS.
You will get one of these errors:
* Bizarre copy of HASH in subroutine exit at
* panic: attempt to copy freed scalar 55dd1fa66068 to 55dd1fa660b0 at
* Bizarre copy of ARRAY in anonymous array ([])
I'm running on perl 5.28 btw.
Cheers,
Wesley
Subject: | json-xs.pl |
MIME-Version: | 1.0 |
Content-Type: | application/x-perl; name="json-xs.pl" |
X-Mailer: | MIME-tools 5.504 (Entity 5.504) |
Content-Disposition: | inline; filename="json-xs.pl" |
Content-Transfer-Encoding: | base64 |
Content-Length: | 408 |
#!/usr/bin/perl
use warnings;
use strict;
use JSON::XS;
my $scalar = '{"type": "bug", "behaviour":"weird"}';
my $json = JSON::XS->new->utf8->filter_json_object(
sub {
my $args = shift;
my %construct_args = %{$args};
return \%construct_args;
}
);
use Data::Dumper;
my $val = $json->decode($scalar);
print Dumper $val; # works
print Dumper $json->decode($scalar); # no worky