voice: Fix some perl warnings

(got lost in the output during my test runs)

Change-Id: I3467b96a9607a4d6cf1e26348cd496be508809d3
This commit is contained in:
Solomon Peachy 2020-07-09 07:33:19 -04:00
parent 2c3399537c
commit 5d8a1a305d

View file

@ -67,7 +67,7 @@ USAGE
; ;
} }
my %festival_lang_map = { my %festival_lang_map = (
'english' => 'english', 'english' => 'english',
'english-us' => 'english', 'english-us' => 'english',
'espanol' => 'spanish', 'espanol' => 'spanish',
@ -75,9 +75,9 @@ my %festival_lang_map = {
#'italiano' => 'italian', #'italiano' => 'italian',
#'czech' => 'czech', #'czech' => 'czech',
#'welsh' => 'welsh' #'welsh' => 'welsh'
}; );
my %gtts_lang_map = { my %gtts_lang_map = (
'english' => 'en-gb', # Always first, it's the golden master 'english' => 'en-gb', # Always first, it's the golden master
'deutsch' => 'de', 'deutsch' => 'de',
'english-us' => 'en-us', 'english-us' => 'en-us',
@ -89,7 +89,7 @@ my %gtts_lang_map = {
'russian' => 'ru', 'russian' => 'ru',
'slovak' => 'sk', 'slovak' => 'sk',
'srpski' => 'sr', 'srpski' => 'sr',
}; );
# Initialize TTS engine. May return an object or value which will be passed # Initialize TTS engine. May return an object or value which will be passed
# to voicestring and shutdown_tts # to voicestring and shutdown_tts