--- trunk/bfilter.pl	2004/09/07 08:33:53	1
+++ trunk/bfilter.pl	2004/09/07 08:37:33	3
@@ -7,7 +7,9 @@
 # maximum entries
 my $max = 0;
 # minimum letters to search by
-my $min_len = 2;
+my $min_len = 3;
+
+my $debug = 1;
 
 sub print_file {
 	my $f = shift || return;
@@ -42,6 +44,7 @@
 
 	# new part?
 	if ($part ne $last_part) {
+		print STDERR $last_part,"\t",$#part_arr+1,"\n" if ($debug);
 		print "headlines['$last_part'] = Array(\n ",join(",\n ",@part_arr),");\n" if (@part_arr);
 		$total += $#part_arr;
 		@part_arr = ();