diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-14 16:42:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-14 16:42:45 +0000 |
| commit | ea1c93402dfa2aba19ab3dbc3551cd21572affb9 (patch) | |
| tree | ec45ca3dd1f9c2899748fabe19ef9f4a2d1ba13d /perl-install/modules.pm | |
| parent | 0f4c7b1bab30307ecee99c03506b0bb632e5c51f (diff) | |
| download | drakx-ea1c93402dfa2aba19ab3dbc3551cd21572affb9.tar drakx-ea1c93402dfa2aba19ab3dbc3551cd21572affb9.tar.gz drakx-ea1c93402dfa2aba19ab3dbc3551cd21572affb9.tar.bz2 drakx-ea1c93402dfa2aba19ab3dbc3551cd21572affb9.tar.xz drakx-ea1c93402dfa2aba19ab3dbc3551cd21572affb9.zip | |
no_comment
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($) { |