From ea1c93402dfa2aba19ab3dbc3551cd21572affb9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 14 Dec 1999 16:42:45 +0000
Subject: no_comment

---
 perl-install/modules.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'perl-install/modules.pm')

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($) {
-- 
cgit v1.2.1