Small fix in checkresponse()

zaf · Aug 10, 2015 · 0012a09 · 0012a09
1 parent 99a3282
commit 0012a09
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 18 deletions.
diff --git a/speech-recog-tiny.agi b/speech-recog-tiny.agi
@@ -272,15 +272,9 @@ sub checkresponse {
 	my @values;
 
 	chomp $input;
-	if ($input =~ /^200/) {
-		$input =~ /result=(-?\d+)\s?(.*)$/;
-		if (!length($1)) {
-			warn "$name Command failed: $input\n";
-			@values = (-1, -1);
-		} else {
-			warn "$name Command returned: $input\n" if ($debug);
-			@values = ("$1", "$2");
-		}
+	if ($input =~ /^200 result=(-?\d+)\s?(.*)$/) {
+		warn "$name Command returned: $input\n" if ($debug);
+		@values = ("$1", "$2");
 	} else {
 		$input .= <STDIN> if ($input =~ /^520-Invalid/);
 		warn "$name Unexpected result: $input\n";

diff --git a/speech-recog.agi b/speech-recog.agi
@@ -298,15 +298,9 @@ sub checkresponse {
 	my @values;
 
 	chomp $input;
-	if ($input =~ /^200/) {
-		$input =~ /result=(-?\d+)\s?(.*)$/;
-		if (!length($1)) {
-			warn "$name Command failed: $input\n";
-			@values = (-1, -1);
-		} else {
-			warn "$name Command returned: $input\n" if ($debug);
-			@values = ("$1", "$2");
-		}
+	if ($input =~ /^200 result=(-?\d+)\s?(.*)$/) {
+		warn "$name Command returned: $input\n" if ($debug);
+		@values = ("$1", "$2");
 	} else {
 		$input .= <STDIN> if ($input =~ /^520-Invalid/);
 		warn "$name Unexpected result: $input\n";