debug

bin/autodoc_process.pl

@@ -70,10 +70,13 @@ sub detect_lang {
 	foreach my $word ( split(/ /,$txt) ) {
 		$word = lc($word);
 		my $lang;
+		print "$word ";
 		my $q = sqlquery($dbh, "SELECT lang FROM dict WHERE word like ?", $word);
 		while(my ($l) = $q->fetchrow_array()) {
+			print "$lang ";
 			$lang = $l;
 		}
+		print "\n";
 
 		push @larr, $lang if defined $lang;
 		$lcnt{$lang}++ if defined $lang;