Bug#601718: Fixed

[Xavier]

Control: tags -1 + pending

Hello,

the following code shows that bug is fixed at least with version ≥ 4.

  use JSON;
  $obj1 = {
    a => 1,
    b => {
      c => 32
    }
  };
  $ex = '{"a":"1","b":{"c":"32"}}';
  my $obj2 = decode_json($ex);
  my $dump1 = encode_json($obj1);
  my $dump2 = encode_json($obj2);
  use Data::Dumper;
  print Dumper($dump1,$dump2);

Result:

  $VAR1 = '{"b":{"c":32},"a":1}';
  $VAR2 = '{"a":"1","b":{"c":"32"}}';

Cheers,
Xavier