From bf209b0d26153b1c8f4d51f26c20d60d9107e2f5 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 6 Sep 2002 21:36:02 +0000
Subject: - harddrake::data : consolidate common code in custom_id() - do some
 detection in dm stage - fix bad test - display better name

---
 perl-install/harddrake/data.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'perl-install/harddrake/data.pm')

diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index d88925014..0da8974fa 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -82,4 +82,9 @@ our @tree =
 	);
 
 
+sub custom_id {
+    my ($device, $str) = @_;
+    defined($device->{device}) ? $device->{device} : (defined($device->{description}) ? $device->{description} : $str);
+}
+
 1;
-- 
cgit v1.2.1