From 5d8a1a305d3e80cf57f38d4206f2efc801e14d73 Mon Sep 17 00:00:00 2001
From: Solomon Peachy <pizza@shaftnet.org>
Date: Thu, 9 Jul 2020 07:33:19 -0400
Subject: voice:  Fix some perl warnings

(got lost in the output during my test runs)

Change-Id: I3467b96a9607a4d6cf1e26348cd496be508809d3
---
 tools/voice.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'tools')

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