From 57f0c1abdba4b36f2b29477643873b606e17feb2 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 7 Feb 2001 17:55:07 +0000 Subject: fixed module name without text for SCSI configuration dialog, add log. --- perl-install/modules.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/modules.pm b/perl-install/modules.pm index 1d7909906..3a86aa0c0 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -372,10 +372,10 @@ sub module_of_type__4update_kernel { } sub module_of_type { my ($type) = @_; - my $alias = $type_aliases{$type}; + my $alias = $type_aliases{$type} || $type; grep { $drivers{$_}{type} =~ /^(($type)|$alias)$/ } keys %drivers; } -sub module2text { $drivers{$_[0]}{text} } +sub module2text { $drivers{$_[0]}{text} or log::l("trying to get text of unknown module $_[0]"), return $_[0] } sub get_alias { my ($alias) = @_; -- cgit v1.2.1