merge category2modules_raw and category2modules (the first being unused)

1 files changed, 2 insertions, 8 deletions

diff --git a/kernel/list_modules.pm b/kernel/list_modules.pm
index 25022d95e..39d58a144 100644
--- a/kernel/list_modules.pm
+++ b/kernel/list_modules.pm
@@ -314,23 +314,17 @@ sub modname2filename {
     $filenames{$_[0]};
 }
 
-#- give module filenames, with '-' characters
-sub category2modules_raw {
+sub category2modules {
     map {
 	my ($t1, $t2s) = m|(.*)/(.*)|;
 	my @sub = $t2s eq '*' ? keys %{$l{$t1}} : split('\|', $t2s);
 	map {
 	    my $l = $l{$t1}{$_} or die "bad category $t1/$_\n" . backtrace();
-	    @$l;
+	    map { filename2modname($_) } @$l;
 	} @sub;
     } split(' ', $_[0]);
 }
 
-#- give driver names, with '_' characters
-sub category2modules {
-    map { filename2modname($_) } category2modules_raw(@_);
-}
-
 sub all_modules() {
     map { @$_ } map { values %$_ } values %l;
 }