word/edit: ignore unicode in json metadata

The shorthand function enables utf8 for binary safety, but breaks on
"wide characters" in our encoded values (such as in label convert options).

diff --git a/word/edit.plp b/word/edit.plp
index d7f093a9e3c59581570fdcf6bb4b7dd0088320cf..1aade3e4d2d64d83f283997f269765bb122eb0a9 100644 (file)
--- a/word/edit.plp
+++ b/word/edit.plp
@@ -228,7 +228,7 @@ else {
 }
 
 eval {
-       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;
        }