From 0150b4e7b333d1bc2c8c754386340647efc116e9 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 23 Jul 2002 13:44:22 +0000
Subject: remove '-' before description for IBM eide hard disks

---
 perl-install/detect_devices.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index f53f4d750..7740f9852 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -245,7 +245,7 @@ sub getIDE() {
 
 	my $num = ord (($d =~ /(.)$/)[0]) - ord 'a';
 	my ($vendor, $model) = map { 
-	    if_($info =~ /^$_\b\s*(.*)/, $eide_hds{$_}, $1);
+	    if_($info =~ /^$_\b(-|\s*)(.*)/, $eide_hds{$_}, $2);
 	} keys %eide_hds;
 
 	my ($channel, $id) = ($num / 2, $num % 2);
-- 
cgit v1.2.1