diff options
| -rw-r--r-- | perl-install/common.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index 9fa9e620a..d680311b7 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -547,7 +547,7 @@ sub bestMatchSentence { } $best = $count, $bestSentence = $_ if $count > $best; } - $bestSentence; + wantarray ? ($bestSentence, $best) : $bestSentence; } # count the number of character that match @@ -563,7 +563,7 @@ sub bestMatchSentence2 { } $best = $count, $bestSentence = $_ if $count > $best; } - $bestSentence; + wantarray ? ($bestSentence, $best) : $bestSentence; } sub typeFromMagic($@) { |