summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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) = @_;