diff options
| -rw-r--r-- | perl-install/common.pm | 3 |
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; |