From ca65ae10ac5443fdb9fea25f8d53ea703554a8f8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 14 Mar 2001 13:23:58 +0000
Subject: (bestMatchSentence, bestMatchSentence2): in wantarray, return the
 number of matched words/characters

---
 perl-install/common.pm | 4 ++--
 1 file 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($@) {
-- 
cgit v1.2.1