| @@ -98,7 +98,7 @@ foreach my $file ( readdir(Q) ) { | |||
| print "\t\tlanguage and dictionary detection\n"; | |||
| my($lang,$words, $dictmatches) = detect_lang($txt); | |||
| print "\t\tfound %dictmatches words in dictionary\n"; | |||
| print "\t\tfound $dictmatches words in dictionary\n"; | |||
| push @res, { | |||
| lang => $lang, | |||