summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm4
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($@) {