summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2007-08-21 17:19:38 +0000
committerOlivier Blin <oblin@mandriva.com>2007-08-21 17:19:38 +0000
commit6a2609f0a4dde08ec7905f0f2a4d345f3d99d69a (patch)
treee52fca6fb1f4791406207377c2002b7022631f1a /perl-install
parent80831ddefaa0c41c6222ac4d9d1a820e54b41708 (diff)
downloaddrakx-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.pm7
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 {