From a0015e6f4736e1cfd8e79a2329714a05b268d5eb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 18 Jan 2010 11:22:08 +0000
Subject: (getSCSI) guess real vendor names like we use to do for IDE devices
 for years

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

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 5244a3445..5b09c494a 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -235,6 +235,10 @@ sub getSCSI() {
 	  $raw_type =~ /Scanner|Processor/ && 'scanner';
 
 	my ($vendor, $model) = ($get->('vendor'), $get->('model'));
+	foreach my $name (keys %eide_hds) {
+	  next if !$name;
+	  ($vendor, $model) = ($eide_hds{$name}, $2) if $model =~ /^$name(-|\s)*(.*)/;
+	};
 	push @l, { info =>  $vendor . ' ' . $model, host => $host, channel => $channel, id => $id, lun => $lun, 
 	  description => join('|', $vendor, $model),
 	  bus => 'SCSI', media_type => $media_type, device => $device,
-- 
cgit v1.2.1