summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-02-07 17:55:07 +0000
committerFrancois Pons <fpons@mandriva.com>2001-02-07 17:55:07 +0000
commit57f0c1abdba4b36f2b29477643873b606e17feb2 (patch)
tree9be8eaab4436c0e51c9d18ef5934e86fce4059a0 /perl-install/modules.pm
parent65e89f1c9599dd5e947f317535554e42c4dc27b1 (diff)
downloaddrakx-57f0c1abdba4b36f2b29477643873b606e17feb2.tar
drakx-57f0c1abdba4b36f2b29477643873b606e17feb2.tar.gz
drakx-57f0c1abdba4b36f2b29477643873b606e17feb2.tar.bz2
drakx-57f0c1abdba4b36f2b29477643873b606e17feb2.tar.xz
drakx-57f0c1abdba4b36f2b29477643873b606e17feb2.zip
fixed module name without text for SCSI configuration dialog, add log.
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm4
1 files 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) = @_;