From ec949755cae48f4458fcaab0e22df9ae3c08c7fe Mon Sep 17 00:00:00 2001
From: John Ralls <jralls@ceridwen.us>
Date: Sat, 27 Mar 2021 13:41:37 -0700
Subject: [PATCH] Improve git-release-notes.pl to handle UTF8 and multiple
 langs in a commit.

---
 util/git-release-notes.pl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/util/git-release-notes.pl b/util/git-release-notes.pl
index dc46f6307c..c82b092262 100755
--- a/util/git-release-notes.pl
+++ b/util/git-release-notes.pl
@@ -1,11 +1,13 @@
 #!/usr/bin/env perl
+use 5.012;
 use warnings;
 use strict;
 
+use Encode;
 use Git;
 use Cwd qq(getcwd);
 use Text::Wrap;
-
+binmode(STDOUT, ":utf8");
 
 sub print_notes {
     my $notes = shift;
@@ -76,7 +78,7 @@ my (@bugs, @improves, %l10n);
 my ($revs, $c) = $repo->command_output_pipe('log', '--topo-order', '--format=%s<|>%b<|>%N<{}>', "$tag..HEAD");
 my $item = "";
 while(<$revs>) {
-    my $rev = $_;
+    my $rev = decode('UTF-8', $_);
     chomp($rev);
     $item .= ' ' if $item;
     $item .= $rev;
@@ -88,9 +90,7 @@ while(<$revs>) {
         } elsif ($item =~ m/^[Ll]10[Nn]:([a-z]{2}(?:[-_][A-Z]{2})?)/) {
             $l10n{$1}++ unless ($item =~ /glossary/i);
         }elsif ($item =~ m/^Translation/) {
-            if ($item =~ m[GnuCash/Program \(([[:alpha:] ]+)\)]) {
-                $l10n{$1}++;
-            }
+            map { $l10n{$_}++ } $item =~ m/GnuCash\/Program \(([[:alpha:][:punct:][:space:]]+)\)/g;
         } elsif ($item =~ m/^(?:Merge|[Ll]1[08][Nn]|[Ii]1[08][Nn])/) {
             my ($sum, $desc, $notes) = split('\<\|\>', $item);
             push @improves, $item if ($desc || $notes);