summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2009-11-24 16:01:20 +0000
committerOlivier Blin <oblin@mandriva.com>2009-11-24 16:01:20 +0000
commit92dd1d16b90aa93855161ecee272999a9bb581fa (patch)
tree2fd8cecfd5e0208af77c8864040b54331c00b7b6 /perl-install
parent552cf229629ac7706ab5831e9a38a6d9f703ead0 (diff)
downloaddrakx-92dd1d16b90aa93855161ecee272999a9bb581fa.tar
drakx-92dd1d16b90aa93855161ecee272999a9bb581fa.tar.gz
drakx-92dd1d16b90aa93855161ecee272999a9bb581fa.tar.bz2
drakx-92dd1d16b90aa93855161ecee272999a9bb581fa.tar.xz
drakx-92dd1d16b90aa93855161ecee272999a9bb581fa.zip
fix SCSI driver module name
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 39717bd5a..0057ec937 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -181,7 +181,8 @@ sub get_scsi_driver {
foreach (@l) {
next if $_->{driver};
my $host = get_sysfs_usbpath_for_block($_->{device});
- $_->{driver} = get_sysfs_field_from_link("/sys/block/$host", 'driver');
+ require list_modules;
+ $_->{driver} = list_modules::filename2modname(get_sysfs_field_from_link("/sys/block/$host", 'driver'));
}
}