From 185d2bbb6a967ad5fb72363677c9b14d1011c949 Mon Sep 17 00:00:00 2001
From: Solomon Peachy <pizza@shaftnet.org>
Date: Fri, 10 Jul 2020 20:40:36 -0400
Subject: voice:  More voice generation fixes:

 * espeak vs espeak-ng  (prefer the latter!)
 * voicepool was busted for most non-english strings

Change-Id: Iae6df0f5426155b7b1f444160814ff9ef4581f21
---
 tools/voice.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'tools/voice.pl')

diff --git a/tools/voice.pl b/tools/voice.pl
index bc076d5386..05ced3a6d9 100755
--- a/tools/voice.pl
+++ b/tools/voice.pl
@@ -26,6 +26,7 @@ use Digest::MD5 qw(md5_hex);
 use DirHandle;
 use open ':encoding(utf8)';
 use open ':std';
+use utf8;
 
 sub printusage {
     print <<USAGE
@@ -383,7 +384,7 @@ sub generateclips {
                 # If we have a pool of snippets, see if the string exists there first
                 if (defined($ENV{'POOL'})) {
                     $pool_file = sprintf("%s/%s-%s.mp3", $ENV{'POOL'},
-                                         md5_hex("$voice $tts_engine $tts_engine_opts $encoder_opts"),
+                                         md5_hex(Encode::encode_utf8("$voice $tts_engine $tts_engine_opts $encoder_opts")),
                                          $language);
                     if (-f $pool_file) {
                         printf("Re-using %s (%s) from pool\n", $id, $voice) if $verbose;
-- 
cgit v1.2.3