summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm9
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 6eb380929..c1bdb2cfc 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -127,13 +127,13 @@ arch() =~ /^sparc/ ? (
"sim710" => "sim710",
"sym53c416" => "sym53c416",
"tmscsim" => "tmscsim",
+ "scsi_mod" => "scsi_mod",
),
"aic7xxx" => "Adaptec 2740, 2840, 2940",
"ncr53c8xx" => "NCR 53C8xx PCI",
# "pci2000" => "Perceptive Solutions PCI-2000", # TODO
"qlogicisp" => "Qlogic ISP",
"sym53c8xx" => "Symbios 53c8xx",
- "scsi_mod" => "scsi_mod",
"sd_mod" => "sd_mod",
"ide-mod" => "ide-mod",
"ide-probe" => "ide-probe",
@@ -388,7 +388,10 @@ sub load {
if ($type) {
add_alias('usb-interface', $name) if $type =~ /SERIAL_USB/i;
- add_alias('scsi_hostadapter', $name) if $type eq "scsi" || $type eq $type_aliases{scsi};
+ if ($type eq "scsi" || $type eq $type_aliases{scsi}) {
+ add_alias('scsi_hostadapter', $name);
+ load("sd_mod");
+ }
}
$conf{$name}{options} = join " ", @options if @options;
}
@@ -541,8 +544,6 @@ sub load_thiskind($;&$) {
my @devs = (@pcidevs, @sbusdevs, @pcmciadevs);
- load("sd_mod") if arch() !~ /sparc/ && $type eq 'scsi' && @devs;
-
my %devs; foreach (@devs) {
my ($text, $mod) = @$_;
pci_probing::main::check($mod) or next;