The shorthand function enables utf8 for binary safety, but breaks on
"wide characters" in our encoded values (such as in label convert options).
- my $imagerow = $row->{image} && decode_json(delete $row->{image}) || {};
+ my $imagerow = $row->{image} && JSON->new->decode(delete $row->{image}) || {};
while (my ($col, $val) = each %{$imagerow}) {
$row->{$col} = $val;
}
while (my ($col, $val) = each %{$imagerow}) {
$row->{$col} = $val;
}