summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-14 16:42:45 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-14 16:42:45 +0000
commitea1c93402dfa2aba19ab3dbc3551cd21572affb9 (patch)
treeec45ca3dd1f9c2899748fabe19ef9f4a2d1ba13d /perl-install/modules.pm
parent0f4c7b1bab30307ecee99c03506b0bb632e5c51f (diff)
downloaddrakx-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.pm8
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($) {