From: Damyan Ivanov <dam+mobileledger@ktnx.net>
Date: Sun, 21 Jun 2020 05:02:34 +0000 (+0000)
Subject: gen-styles: utf8-aware
X-Git-Tag: v0.14.1~10
X-Git-Url: https://git.ktnx.net/?p=mobile-ledger.git;a=commitdiff_plain;h=557db86d7b67be4d05083f394f78958aa7820891

gen-styles: utf8-aware
---

diff --git a/tools/gen-styles b/tools/gen-styles
index 73e2367b..5b958f53 100644
--- a/tools/gen-styles
+++ b/tools/gen-styles
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-use strict; use warnings; use utf8;
+use strict; use warnings; use utf8::all;
 use autodie;
 use Math::Trig;
 use File::Basename qw(basename dirname);
@@ -237,6 +237,7 @@ if ($xml) {
 	my $start_marker = '<!-- theme list start -->';
 	my $end_marker = '<!-- theme list end -->';
 	my ($fh, $filename) = tempfile(basename($0).'.XXXXXXXX', DIR => dirname($xml));
+        $fh->binmode(':utf8');
 	open(my $in, '<', $xml);
 	my $base_indent = '';
 	my $state = 'waiting-for-start-marker';