diff options
| author | Olivier Blin <oblin@mandriva.com> | 2007-08-21 17:19:38 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2007-08-21 17:19:38 +0000 |
| commit | 6a2609f0a4dde08ec7905f0f2a4d345f3d99d69a (patch) | |
| tree | e52fca6fb1f4791406207377c2002b7022631f1a /perl-install | |
| parent | 80831ddefaa0c41c6222ac4d9d1a820e54b41708 (diff) | |
| download | drakx-6a2609f0a4dde08ec7905f0f2a4d345f3d99d69a.tar drakx-6a2609f0a4dde08ec7905f0f2a4d345f3d99d69a.tar.gz drakx-6a2609f0a4dde08ec7905f0f2a4d345f3d99d69a.tar.bz2 drakx-6a2609f0a4dde08ec7905f0f2a4d345f3d99d69a.tar.xz drakx-6a2609f0a4dde08ec7905f0f2a4d345f3d99d69a.zip | |
fallback on module name if the filename can't be found (in the rare case the caller uses '-' in the module name)
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/modules.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm index 9b31904df..e8edd9e67 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -241,7 +241,12 @@ sub read_already_loaded { sub name2file { my ($name) = @_; - list_modules::modname2filename($name) . ".ko"; + my $f = list_modules::modname2filename($name); + if (!$f) { + log::l("warning: unable to get module filename for $name"); + $f = $name; + } + $f . ".ko"; } sub when_load { |