diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-02-07 17:55:07 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-02-07 17:55:07 +0000 |
| commit | 57f0c1abdba4b36f2b29477643873b606e17feb2 (patch) | |
| tree | 9be8eaab4436c0e51c9d18ef5934e86fce4059a0 /perl-install | |
| parent | 65e89f1c9599dd5e947f317535554e42c4dc27b1 (diff) | |
| download | drakx-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')
| -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) = @_; |