From 027a60ece8b12690c09b5e433339b03e55df065b Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 15 Oct 2021 13:42:20 +0200
Subject: [PATCH] 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).
---
 word/edit.plp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/word/edit.plp b/word/edit.plp
index d7f093a..1aade3e 100644
--- 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;
 	}
-- 
2.30.0