diff options
| -rw-r--r-- | perl-install/modules.pm | 4 |
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) = @_; |