--- trunk/bfilter.pl 2004/09/15 16:48:24 26 +++ trunk/bfilter.pl 2004/09/24 15:44:27 29 @@ -7,7 +7,8 @@ # maximum entries my $max = 0; # minimum letters to search by -my $min_len = shift @ARGV || 3; +my $min_len = shift @ARGV; +$min_len = 3 unless defined($min_len); # if more than x elements, warn to increase min_len my $increase_at = 500;