diff options
Diffstat (limited to 'perl-install/modules.pm')
| -rw-r--r-- | perl-install/modules.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm index 66040a4b7..1c788e505 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -257,7 +257,10 @@ my @drivers_by_category = ( }], ); -my %scsi_raid; @scsi_raid{qw(DAC960 dpt megaraid cpqarray gdth ips ppa eata eata_pio eata_dma st imm)} = (); +my %type_aliases = ( + scsi => 'disk', +); + my @drivers_fields = qw(text type); %drivers = (); @@ -282,8 +285,9 @@ sub module_of_type($) { sub text_of_type($) { my ($type) = @_; + my $alias = $type_aliases{$type}; - map { $_->{text} } grep { $_->{type} eq $type } values %drivers; + map { $_->{text} } grep { $_->{type} eq $type || $_->{type} eq $alias } values %drivers; } sub text2driver($) { |