From 6a2609f0a4dde08ec7905f0f2a4d345f3d99d69a Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Tue, 21 Aug 2007 17:19:38 +0000
Subject: fallback on module name if the filename can't be found (in the rare
 case the caller uses '-' in the module name)

---
 perl-install/modules.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'perl-install/modules.pm')

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 {
-- 
cgit v1.2.1