| Subject: | Please release 3.04 as 4.01 and use X.Y_Z notation for trial releases |
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 |
#!/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