summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/common.pm3
1 files changed, 3 insertions, 0 deletions
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;