--- stem-hr.pl	2005/02/26 18:13:14	7
+++ stem-hr.pl	2005/02/26 18:23:56	8
@@ -50,10 +50,14 @@
 
 
 my $last_stem = '';
+my $errors = 0;
 sub check_stem {
 	my $s = shift || return;
 	if ($last_stem) {
-		print "ERROR==> " if ($last_stem ne $s);
+		if ($last_stem ne $s) {
+			print "ERROR==> ";
+			$errors++;
+		}
 	} else {
 		$last_stem = $s;
 	}
@@ -127,7 +131,7 @@
 
 }
 my $nr_stems = keys(%stem_words);
-printf "\n# %d words, %d stems in %d ops, %.2f%% size\n",$words,$nr_stems,$stems,($nr_stems*100/$words);
+printf "\n# %d words, %d stems in %d ops, %.2f%% size [%d errors]\n",$words,$nr_stems,$stems,($nr_stems*100/$words),$errors;
 
 foreach my $s (keys %stem_words) {
 	print "#stem $stem_words{$s} $s\n";