debug

bin/autodoc_process.pl

@@ -67,7 +67,7 @@ sub detect_lang {
 	my @larr;
 	my %lcnt;
 
-	foreach my $word ( split(/ /,$txt) ) {
+	foreach my $word ( split(/[ '".-]/,$txt) ) {
 		$word = lc($word);
 		my $lang;
 		print "$word ";