From cc3321b90b2ee25deec842e1177d57bd92a4de87 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
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