From 1a811e066b38db62cbd236e635295a6ca32a24b7 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Tue, 21 Aug 2007 12:12:49 +0000
Subject: add filename2modname

---
 kernel/list_modules.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'kernel')

diff --git a/kernel/list_modules.pm b/kernel/list_modules.pm
index d37a5a585..70fa2cdfe 100644
--- a/kernel/list_modules.pm
+++ b/kernel/list_modules.pm
@@ -299,6 +299,12 @@ sub dependencies_closure {
     (@l, $_[0]);
 }
 
+sub filename2modname {
+    my ($modname) = @_;
+    $modname =~ s/-/_/g;
+    $modname;
+}
+
 #- give module filenames, with '-' characters
 sub category2modules_raw {
     map {
@@ -313,7 +319,7 @@ sub category2modules_raw {
 
 #- give driver names, with '_' characters
 sub category2modules {
-    map { s/-/_/g; $_ } category2modules_raw(@_);
+    map { filename2modname($_) } category2modules_raw(@_);
 }
 
 sub all_modules() {
@@ -322,7 +328,7 @@ sub all_modules() {
 
 sub module2category {
     my ($module) = @_;
-    $module =~ s/-/_/g;
+    $module = filename2modname($module);
     foreach my $t1 (keys %l) {
 	my $h = $l{$t1};
 	foreach my $t2 (keys %$h) {
-- 
cgit v1.2.1