Updated text splitting function, char limit seems to be 99 for some l…

…anguages.
zaf · Aug 20, 2013 · d8844eb · d8844eb
1 parent 3bebc50
commit d8844eb
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/cli/googletts-cli.pl b/cli/googletts-cli.pl
@@ -59,7 +59,7 @@
 		exit 1;
 	}
 	$_ .= "." unless (/^.+[.,?!:;]$/);
-	@text = /.{1,100}[.,?!:;]|.{1,100}\s/g;
+	@text = /.{1,99}[.,?!:;]|.{1,99}\s/g;
 }
 
 my $ua = LWP::UserAgent->new;

diff --git a/googletts.agi b/googletts.agi
@@ -120,7 +120,7 @@ for ($AGI{arg_1}) {
 	die "$name No text passed for synthesis.\n" if (!length);
 	# Split input to comply with google tts requirements #
 	$_ .= "." unless (/^.+[.,?!:;]$/);
-	@text = /.{1,100}[.,?!:;]|.{1,100}\s/g;
+	@text = /.{1,99}[.,?!:;]|.{1,99}\s/g;
 }
 
 # Setting language, interrupt keys and speed rate #