From 92dd1d16b90aa93855161ecee272999a9bb581fa Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 24 Nov 2009 16:01:20 +0000 Subject: fix SCSI driver module name --- perl-install/detect_devices.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/detect_devices.pm') 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')); } } -- cgit v1.2.1