From aa9b78cdab19db46d96fd5c33da1fadc0f165700 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Tue, 31 Oct 2023 18:28:07 +0100
Subject: [PATCH] syswrite complains about :utf8 layer
---
modules/util/Util/JSON.pm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/modules/util/Util/JSON.pm b/modules/util/Util/JSON.pm
index a4119d9..1901bdb 100755
--- a/modules/util/Util/JSON.pm
+++ b/modules/util/Util/JSON.pm
@@ -57,7 +57,7 @@ sub write_json_file
=begin comment
- open (J, '>:utf8', $json_fnm) or die ("can not write to [$json_fnm]; caller:", join (' ', caller()));
+ open (J, '>:', $json_fnm) or die ("can not write to [$json_fnm]; caller:", join (' ', caller()));
syswrite (J, $json_str);
close (J);
@@ -97,7 +97,7 @@ sub x_write_text
my $json_fnm= shift;
my $json_str= shift;
- open (J, '>:utf8', $json_fnm) or die ("can not write to [$json_fnm]");
+ open (J, '>:', $json_fnm) or die ("can not write to [$json_fnm]");
syswrite (J, $json_str);
close (J);
}
--
GitLab