diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-06-07 18:20:40 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-06-07 18:20:40 +0000 |
| commit | 234684d7e2fcca452ee5c0bedd0e82c15a3dc788 (patch) | |
| tree | 60b1a1022a726c0af371559d4d40b2a062da8162 /perl-install/modules.pm | |
| parent | 0d81dab56418bb5bac57ae4f6b41d508da2180ec (diff) | |
| download | drakx-backup-do-not-use-234684d7e2fcca452ee5c0bedd0e82c15a3dc788.tar drakx-backup-do-not-use-234684d7e2fcca452ee5c0bedd0e82c15a3dc788.tar.gz drakx-backup-do-not-use-234684d7e2fcca452ee5c0bedd0e82c15a3dc788.tar.bz2 drakx-backup-do-not-use-234684d7e2fcca452ee5c0bedd0e82c15a3dc788.tar.xz drakx-backup-do-not-use-234684d7e2fcca452ee5c0bedd0e82c15a3dc788.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/modules.pm')
| -rw-r--r-- | perl-install/modules.pm | 9 |
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; |