From fe63f41573eaad71f256684c1c745333e4d42088 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 18 Oct 1999 12:08:44 +0000
Subject: no_comment

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

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

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 43465ec9d..3d1c3a4d2 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -82,6 +82,7 @@ my @drivers_by_category = (
   "seagate" => "Future Domain TMC-885, TMC-950",
   "fdomain" => "Future Domain TMC-16x0",
   "gdth" => "ICP Disk Array Controller",
+  "initio" => "Initio",
   "ppa" => "Iomega PPA3 (parallel port Zip)",
   "g_NCR5380" => "NCR 5380",
   "NCR53c406a" => "NCR 53c406a",
@@ -165,7 +166,7 @@ sub load {
     } else {
 	$conf{$name}{loaded} and return;
 
-	$type ||= $drivers{$name}{type};
+	$type ||= ($drivers{$name} || { type => 'unknown'})->{type};
 
 	load($_, 'prereq') foreach @{$deps{$name}};
 	load_raw($name, @options);
@@ -285,7 +286,6 @@ sub load_thiskind($;&$) {
     my %devs; foreach (@devs) {
 	my ($text, $mod) = @$_;
 	$devs{$mod}++ and log::l("multiple $mod devices found"), next;
-	$drivers{$mod} or log::l("module $mod not in install table"), next;
 	log::l("found driver for $mod");
 	&$f($text, $mod) if $f;
 	load($mod, $type);
-- 
cgit v1.2.1