From cc3321b90b2ee25deec842e1177d57bd92a4de87 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 12 Apr 2001 11:35:46 +0000 Subject: improved bestMatchSentence2. --- perl-install/common.pm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'perl-install') diff --git a/perl-install/common.pm b/perl-install/common.pm index ab5c9419d..ab08ad4a1 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -568,6 +568,9 @@ sub bestMatchSentence2 { foreach (@_) { my $count = 0; foreach my $e (@s) { + $count+= length ($e) if /^$e$/; + $count+= length ($e) if /^$e$/i; + $count+= length ($e) if /$e/; $count+= length ($e) if /$e/i; } $best = $count, $bestSentence = $_ if $count > $best; -- cgit v1.2.1