diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2010-01-18 11:22:08 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2010-01-18 11:22:08 +0000 |
| commit | a0015e6f4736e1cfd8e79a2329714a05b268d5eb (patch) | |
| tree | 63ec26e5fdbe4c9f1e0a4e5c6856f385d03c457f /perl-install/detect_devices.pm | |
| parent | a4accce4f8d057a3f13a80b01c137ff550e5d67b (diff) | |
| download | drakx-a0015e6f4736e1cfd8e79a2329714a05b268d5eb.tar drakx-a0015e6f4736e1cfd8e79a2329714a05b268d5eb.tar.gz drakx-a0015e6f4736e1cfd8e79a2329714a05b268d5eb.tar.bz2 drakx-a0015e6f4736e1cfd8e79a2329714a05b268d5eb.tar.xz drakx-a0015e6f4736e1cfd8e79a2329714a05b268d5eb.zip | |
(getSCSI) guess real vendor names like we use to do for IDE devices for years
Diffstat (limited to 'perl-install/detect_devices.pm')
| -rw-r--r-- | perl-install/detect_devices.pm | 4 |
1 files changed, 4 insertions, 0 deletions
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, |