--- trunk/WebPac.pm	2003/07/16 15:49:56	114
+++ trunk/WebPac.pm	2003/09/02 13:24:33	120
@@ -26,6 +26,7 @@
 my $INDEX = $cfg_global->val('webpac', 'index') || die "need index in global.conf, section webpac";
 my $MAX_HITS = $cfg_global->val('webpac', 'max_hits') || 0;
 my $ON_PAGE =$cfg_global->val('webpac', 'on_page') || 10;
+my $MIN_WILDCARD =$cfg_global->val('webpac', 'min_wildcard') || 1;
 
 
 Text::Iconv->raise_error(0);     # Conversion errors raise exceptions
@@ -109,6 +110,9 @@
 					$s.="$2* ";
 				} elsif (m/(and|or|not)/i) {
 					$s.="$_ ";
+				# don't add * to words with less than x chars
+				} elsif (length($_) <= $MIN_WILDCARD) {
+					$s.="$_ ";
 				} else {
 					$s.="$_* ";
 				}