From c7f7e91919ee72b885d5b3253c608393279945ae Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 2 Jun 2005 02:08:06 +0000
Subject: create detect_devices::probe_name() &
 detect_devices::probe_unique_name() and use them

---
 perl-install/detect_devices.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'perl-install/detect_devices.pm')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index a73b24598..2b3e3ff4c 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -779,6 +779,18 @@ sub matching_driver {
     my (@list) = @_;
     grep { member($_->{driver}, @list) } probeall();
 }
+sub probe_name {
+    my ($name) = @_;
+    map { $_->{driver} =~ /^$name:(.*)/ } probeall();
+}
+sub probe_unique_name {
+    my ($name) = @_;
+    my @l = uniq(probe_name($name));
+    if (@l > 1) {
+	log::l("oops, more than one $name from probe: ", join(' ', @l));
+    }
+    $l[0];
+}
 
 sub stringlist() { 
     map {
-- 
cgit v1.2.1